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ELEPHANT  NEVER  FORGETS. 


A  full  line  oftop-qtialit)'  flofJtnes,  in  virtually  even'  5  'A"  and  8"  model,  for  compatihiUty  with  virtually  every  computer  on  the  market, 
CuaranteeA  to  iiteei  or  exceed  every  industry'  standard,  certified  100%  error- free  and  fmblem-free,  and  to  maintain  its  qtiaUt}'  for  at  least  12  million  passes 

(oro\>era  lifetime  oflteav\'-diity  use). 


Contact  Demtison  Computer  Supplies,  Inc.,  55  Providence  Hiahway,  Norwood,  iVlA  02062  or  call  toll-free  1-SOO-343-8413. 
In  Massachusetts,  call  collect  ^IJ)  769-8150.  Telex  951-624. 


WordPro  3  Plus764 

The  #1  Selling  Word  Processor  for  the  Commodore  64^ 


WordPro  3  Plus'"/64  and  SpellRight  Plus"  provide  a  total  word 
processing  solution  for  the  Commodore  6f  which  gives  you: 

*  Sophisticated  Word  Processing 

*  Built-in  Mail  Merging  for  Form  Letters 

*  Math  Functions  for  Column  Totals 

*  Fast  and  Complete  Spell  Checking  via  SpellRight  Plus 

*  A  Super  Value  (two  programs)  for  Only  S99.95! 

WordPro  and  SpellRight  are  both  specifically  designed  for  the 
novice  user  with  no  computer  or  word  processing  experience 
whatsoever.  And  with  over  40,000  WordPro  versions  sold,  you 
can  be  sure  that  WordPro  is  a  very  sophisticated  word 
processor  loaded  with  powerful  features  including:  Transfer, 
Insert,  Delete,  and  Rearrange  Text,  Auto  Page  Numbering,  Math 
Functions,  Headers,  Footers,  Global  Search  and  Replace,  the 
Ability  to  Create  Multiple  Personalized  Letters  and  Documents, 
and  much  more.  WordPro  can  create  documents  of  virtually 
any  length  and  will  print  up  to  165  columns  wide.  You  get  all  of 
this  PLUS  fast  and  complete  spell  checking  using  SpellRight 
Plus! 


SpellRight  Plus  locates  and  highlights  misspelled  words  and 
then  allows  you  to  quickly  correct  the  misspellings  — 
improving  the  quality  of  your  letters  and  reports. 

And,  best  of  all,  WordPro  and  SpellRlght's  powerful  arsenal 
of  features  can  be  put  to  use  almost  immediately  —  by  even 
the  novice  user.  So  whether  you're  a  student,  professional 
writer,  in  business,  education  or  a  hobbyist,  you'll  quickly 
become  a  WordPro  Pro! 

Both  WordPro  and  SpellRight  Plus  are  also  available  separately 
at  popular  computer  outlets  nationwide. 

Invest  in  the  best . .  .WordPro  Plus.  In  a  class  by  Itself. 

Professional  Software  Inc. 


51  Fremont  Street 
Needham,  MA  02194 


(617)  444-5224 
Telex:  951579 


Dealer  and  Distributor  inquiries  are  invited. 


WordPro  3  Plus'"/64  and  SpellRight  Plus"  are  trademarks  of  Professional  Software  Inc. 

The  WordPro  Plus  Sefies  was  designed  and  written  by  Steve  Punter  of  Pro-Micro  Software  Ltd. 

SpellRigfit  Plus  was  designed  and  written  t>y  Dwigtit  Huff  and  Joe  Spatafora  of  SpeilMaster  Systems.  Inc. 

Some  printers  may  not  support  certain  WordPro  3  Plus  functions  and/or  require  an  interface.  Please  check  with  your  dealer. 
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ELEVEN  THINGS 

YOU CAN  DO 

ON  THE  VERY  FIRST  DAY 


1.  Home  Loan    1 

2.  Monthly          \ 

Expenses 

3.  Word  Race 

8.  Alarm  Clock 

4.  Shopping  List 

9.  Checkbook 

5.  Recipe  File 

10.  Address  Book 

6.  Tile  Game 

11.  Telephone 

7.  Typewriter 

Connector 

M)ur  first  day  with  PC/V  isn't  just 
exciting. 

It's  rewarding. 

This  IBM®  personal  computer  quickly 
hooks  up  to  the  family  TV.  And  there's  a  lot 
you  can  do  right  from  the  start. 

PQr  MAKES  IT  EASY 

PQV  was  designed  to  make  the 
whole  family  feel  at  home  with 
computers. 

The  keyboard,  for  example, 
doesn't  need  a 
connecting  cord.  This 
refreshing  bit  of 
technology  —  the  IBM 
"Freeboard"— frees  you 
to  get  comfortable  up  to 
twenty  feet  away. 

And  the  keys  are 
color-coded,  so  even  a 
beginner  can  find  the 
right  key  for  the  right  job. 

Right  away. 

YOU'RE  OFF  AND  RUNNING 

"%u  can  start  using  PC/r  as  soon  as  you 
set  it  up.  The  Sampler  Diskette  (included  with 
diskette-drive  models)  gives  you  eleven  useful 
mini-programs  to  choose  from. 

Including: 

A  home  spreadsheet  to  help  keep  your 
expenses  in  line. 

An  electronic  address  book  to  help  you 
sort  out  who's  who  and  who's  where. 

A  home  loan  calculator  that  can  tell  you 
interesting  things  about  your  principal. 

An  easy-access  file  for  recipes.  A 
checkbook  balancer.  And  a  challenging  word 
game. 

Of  course,  the  Sampler  Diskette  is  merely  a 
taste  of  what  you  can  do  with  PCjr.  M)u  can  buy 
easy-to-follow  programs  to  help  you  write  letters, 
plan  your  finances,  educate  the  kids,  file  tax  data 
—  to  help  the  whole  family  use  its  time  to 
better  advantage. 

Plus,  PC/V  runs  many  of 
the  IBM  Personal  Computer 
programs  that  run  on  the  IBM  PC 
and  PC/XT.  So  you  can  finish  at 


home  what  you  start  at  the  office,  and 
vice  versa. 

And  when  it's  time  to  relax,  PC/r  is 
always  game.  Plug  in  an  entertainment 
cartridge  and  let  the  fun  begin. 

~        A  COMPUTER  THAT  CAN 

GROW  WITH  YOU 

PC/>  is  the  most  affordable  of 
the  IBM  personal  computers. 
"%u  can  start  with  the 
128KB  model,  equipped  with 
a  diskette  drive,  for  about  $1300. 
Or  the  64KB  base  model, 
for  about  $700.  (Prices  apply  at 
IBM  Product  Centers,  and  may  vary 
at  other  stores.) 

And  as  your  needs  become  more    . 
sophisticated,  PCjr  can  easily  keep 
pace.  With  add-it-yourself  options 
like  a  printer,  diskette  drive 
and  internal  modem  for  telecom- 
munications, even  the  lowest-priced 
model  can  grow  up  fast. 

Visit  an  authorized  IBM  PC;r  dealer  or 
IBM  Product  Center  and  see  all  the  things 
PCjr  can  do.  For  the  location  nearest  you,  call 
1-8004BM-PCJR.  In  Alaska  and  Hawaii, 


1-800-447-0890. 
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DISCOVER  COMPUTERS  WITH  ATARI. 


LPLJ  U  'Wi-F 


H'ttmUtMU'tTi 


^1-     T__ 


Atarf  presents  the 
five  greatest  advances 
in  the  creative  arts 
since  someone  put 
72  crayons  in  one  box. 


What  would  Cezanne  say  to  an 
electronic  orange?  Surely  Van 
Gogh  would  go  lor  some  flowers 
painted  in  phosphors  (those  glow- 
ing things  in  your  TV  screen).  And 
you  bet  Beethoven  would  be  blown 
away  by  a  computer  synthesized 
symphony 

Too  bad.  They  were  all  bom  too 
early  But  luckily  you  weren't.  Be- 
cause Atari  makes  several  home 
computer  products  to  help  you 
create  all  these  things  and  more. 

First,  there's  ATARI  Paint,*  the 
program  that  tums  the  joystick  you 
already  own  into  a  computerized 
paintbrush  that  helps  you  explore 
the  fascinating  world  of  computer 
art. 

Gat  the  magic  touch  with 
Atari  Touch  Tablet. 

The  ATARI  Touch 
Tablet  with  Atari- 
Artisf "  software 
cartridge  tums 
your  TV  into  a 
magic  palette  of 
128  dazzling  colors. 
The  Touch  Tablet  works  a 
Uitle  like  an  electronic  slate.  Hook  it 
into  any  ATARI  Computer  and  what 
you  draw  on  the  tablet  will  in- 
stantly appear  on  your  TV  screen. 
You  can  draw  on  the  Touch  Tablet 
with  the  unique  electronic  stylus 
that  comes  with  it — or  even  with 
your  finger 

And  all  the  on-screen  com- 
mands that  control  your  Touch  Tdb- 
let  are  labelled  with  simple  sym- 


bols OS  weU  as  words.  So  everyone 
from  preschoolers  to  grandparents 
can  create  without  going  near  the 
keyboard. 


Atari  Light  Pen  lets  you 
write  right  on  the  screen. 

ATARI  Light  Pen  with  Atari- 
Graphics'"  sofhA^are  cartridge  is 
among  the  best  tools  available  for 
teaching  hands-on  computer  cre- 
ativity. To  draw  circles,  rect- 
angles, or  simply  fool  around  with 
freehand  sketching,  just  press  the 
pen  to  your  TV  screen  and  VOILA 
. .  .A trcal  of  sparkling  color  follows  it. 

You  can  ftu  in  your  sketches  with 
one  or  more  of  128  colors.  Or 
choose  from  over  2,800  patterns. 

Roll  over  Beethoven, 
AtariMuslc  Is  here. 

Sure,  Beethoven  took  music  les- 
sons. But  even  he  didn't  get  the 
head  start  you'll  get  with 
AtariMusic"  i  or  AtariMusic^"  II. 
And  once  you  understand  the 


basics  you'll  be  ready  to  move  up  to 
ATARI  Music  Composer*  and 
create  original  compositions  in  four 
part  harmony! 

All  of  these  programs  were  de- 
signed to  get  the  best  from  your 
ATARI  Computer,  including  the 
ATARI  800XL"'  or  the  less  expensive 
ATARI  600XL"'  Both  machines  give 
you  unsurpassed  Atari  graphics 
and  four  sound  channels.  And 
whether  you're  painting  with  light 
or  composing  at  the  com- 
puter keyboard,  you  can  store 
your  creation  on  the  ATARI 
1010"'  Program  Recorder      n|, 

or  the  more  sophisticated    1 1  ,_, 

1050"  Disk  Drive.  CJ    U 

And  if  aU  that  doesn't         ^^zSi 
convince  you  that  our  new 
programs  are  a  giant  step  beyond 
crayons,  consider  this:  the  kids 
will  never  write  on  the  wall  with  a 
computer 

■  SuperBools' ■  Eotlware  deraloped  by  Capital  Children^ 
Museum,  Washlnfirlon.  D.C..  llcarued  by  Keston  PubUshlno 
Company.  Inc  C  1982  Restan  Publishing  Company  Inc 
All  RlQhIs  Reserved. 
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EDITORS  NOTES 


This  month.  Senior  Editor  Richard 
Mansfield  responds  to  an  attack 
on  personal  computing  in  this 
guest  editorial. 

Robert  C.  Lock 
Editor  In  Chief 


A  few  weeks  ago,  pundit  Andy 
Rooney  launched  an  astonishing 
attack  on  personal  computing 
on  CBS's  show  60  Minutes.  It 
was  astonishing  because  he  re- 
vealed a  staggering  misunder- 
standing of  computing.  But  first 
a  bit  of  background. 

There  seem  to  be  fewer  cur- 
mudgeons around  these  days.  It 
used  to  be  that  when  an  impor- 
tant invention  was  unveiled, 
dozens  of  experts  could  be 
counted  on  to  denounce  the  de- 
vice as  interesting,  but  impracti- 
cal. No  more.  Maybe  it  was  the 
splitting  of  the  atom  or  the 
moon  landing.  Who  knows?  For 
whatever  reason,  few  people  are 
now  willing  to  publicly  predict 
that  an  invention  is  funda- 
mentally unimportant,  useless, 
or  impossible. 

Most  people,  experts  in- 
cluded, still  secretly  think  like 
that  about  new  technologies. 
They  just  won't  talk  about  it 
with  reporters  anymore.  There 
is  a  defect,  a  weakness  in  many 
people,  which  makes  them  un- 
able to  accept  new  machines 
and  discoveries.  Perhaps  we 
could  define  this  as  future- 
bUndness — a  skewed  view  of 
the  potential  of  new  hardware. 

Part  of  the  problem  is  that 
hardware  always  precedes  soft- 
ware. The  car  was  invented 
before  there  were  proper  roads 
for  it  to  travel  on.  TV  sets  were 
constructed  before  there  were 
programs  to  watch. 

So,  in  the  past,  when  a  ma- 
jor new  technology  was  an- 
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nounced,  futureblind  "experts" 
would  come  out  of  their  dwell- 
ings and  talk  with  reporters. 
The  experts  would  acknowledge 
that  the  new  device  was  inter- 
esting, but  that  it  was  also  im- 
practical and  hardly  deserving 
of  all  the  notice  it  was  getting. 
Less  stodgy  experts  might  have 
gone  so  far  as  to  envision  a  lim- 
ited use  for  the  device,  a  very 
limited  use. 

It's  always  amusing  to  read 
such  pronouncements  a  decade 
or  two  later.  For  example,  when 
the  first  telephone  was  demon- 
strated, one  expert  predicted 
that  there  would,  in  fact,  be  a 
real  use  for  this  new  technol- 
ogy. He  announced  that  he 
could  even  foresee  a  day  when 
there  would  be  one  in  every 
large  city. 

Such  a  prediction  likely 
drew  gasps  and  murmurs  from 
the  more  severely  futureblind  in 
his  audience.  A  phone  in  every 
major  city  was,  of  course,  desir- 
able, but  hardly  practical.  After 
aU,  there  would  have  to  be  a 
wire  strung  from  city  to  city 
across  the  land.  And  that  was 
beyond  imagining. 

It's  always  this  way  with 
hardware.  Most  people,  and 
many  experts,  cannot  under- 
stand that  important  new  hard- 
ware is  naked  at  first,  but  creates 
a  powerful  vacuum,  eventually 
pulling  in  huge  amounts  of  soft- 
ware. Few  people  realized  that 
the  automobile  would  throw 
webs  of  asphalt  over  entire  con- 
tinents. Or  that  nets  of  tele- 
phone wires  would  cover  our 
cities.  Before  those  webs  and 
nets  were  in  place,  the  car  and 
the  phone  seemed,  if  not  frivo- 
lous, at  least  pretty  limited. 

Yet  these  days  very  few  ex- 
perts are  willing  to  reflexively 
denounce  new  technology. 


Burned  once  too  often,  the  aver- 
age expert  will  now  either  refuse 
to  comment  or  make  some  mild, 
rhetorical,  anticomment  like 
"I'm  excited  about  the  prospects 
of  this,  but  I  must  wonder 
where  it  will  lead  us  in  our 
modern  society."  Since  remarks 
like  this  say  nothing  whatso- 
ever, they're  safe  enough. 

So  it  was  with  mixed  emo- 
tions that  we  listened  to  Andy 
Rooney  attack  personal  com- 
puters on  60  Minutes.  On  the 
one  hand,  it  was  touchingly  nos- 
talgic to  watch  him  denounce 
technology  in  the  traditional 
way  by  confusing  hardware 
with  software.  On  the  other 
hand,  his  stance  was  so  grossly 
confused  that  his  pronounce- 
ments cannot  take  a  place 
alongside  the  classic,  the  truly 
great  historical  failures  of 
vision. 

He  decided  to  test  the  value 
of  personal  computers  by  seeing 
if  he  could  make  corrections 
faster  via  word  processor  or 
pencil  and  paper.  He  timed 
himself  and  found  that  his  pen- 
cil was  indeed  faster.  Anyone 
remotely  familiar  with  comput- 
ers would  immediately  say,  "So 
what?"  This  was  not  a  test  of 
word  processing,  much  less  of 
computers  in  general.  But  Rooney 
went  on  to  draw  several  increas- 
ingly bizarre  conclusions  about 
computing. 

Curmudgeons  do  serve  a 
purpose  beyond  their  amuse- 
ment value.  They  are  a  healthy 
balance  against  promoters'  hype 
and  uncritical  technophilia.  But 
an  essential  prerequisite  of  any 
good  denunciation  is  that,  at 
least  on  the  surface,  it  must  ap- 
pear to  make  some  sense. 
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Scott  Lamb's  Interactive 
Space  Fantasy  Adventure 

Jupiter  MissTon  1999  is  Avalon  Hill's  Trademark  hJame 

tor  its  Microcomputer  Space  Adventure  Role  Pfdylftfl  Gome. 
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Ship  Status  Display: 
Damage  report 
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Navigation  Displov: 
Used  to  plot  course 


Science  Lab  Display: 
Probe  report 


Science  Lob  Display; 
Jupiter  system  diagramatic 


•  Trodemark  of 
Warner  Communications 


RRRING!!!        RRRINGII!        RRRINGIIJ 

Too  early  on  a  chilly  January  morning,  I  was  jarred  awake  by 
the  noxious  blaring  of  my  traitorous  doorbell.  As  I  moved  to  accost 
the  unknown  aggressor,  with  the  full  force  of  semi-conscious 
wrath,  !  pulled  on  my  robe  and  lost  my  dignity  to  the  pain  of  a 
stubbed  toe.  Now  fully  awake,  I  opened  the  door,  prepared  to 
educate  the  mysterious  interloper  on  the  meaning  of  manners. 
My  determination  to  this  end  was  somewhat  shattered  when  I  saw 
two  large  men  clad  in  long  overcoats  and  wide-brimmed  hats. 
Instinctively,  I  tried  to  slam  the  door.  My  retreat  to  safety  was 
denied  by  the  advance  of  the  strangers.  Before  I  could  protest 
their  entry,  my  vision  was  drawn  to  the  shining  silver  badges  that 
hung  from  their  now  unfolded  wallets.  They  were  government 
agents. 

Hesitantly,  trying  to  remember  any  crimes  that  I  had  ever 
committed,  I  invited  them  into  my  home.  At  their  request,  I 
produced  my  driver's  license  and  other  forms  of  identification. 
After  examining  these  credentials,  they  asked  me  to  pack  a  bag 
for  an  extended  journey.  After  some  protest  and  argument,  I  was 
made  to  understand  that  my  options  in  this  matter  were  less  than 
limited.  My  country  needs  me,  they  said— with  the  clear 
implication  that  either  I  pack  and  dress  or  I  take  an  extended 
journey  in  my  robe. 

This  is  how  my  adventure  began.  From  my  cold  apartment,  I 
was  taken  to  a  towering  vehicle  for  an  emergency  mission  to 
Jupiter.  My  very  life  on  the  line  and,  possibly,  the  survival  of  the 
planet  Earth  as  well,  and  only  God  knows  what  other  kind  of  perils 
await. 

JUPITER  MISSION  1999  is  a  highly  detailed  role-playing  space 
adventure  game  that  includes  challenging  arcade  segments 
and  mystifying  puzzles,  Four  separate  program  disksare  enclosed 
to  test  the  creative  imagination  of  the  advanced  computer 
gamer.  JUPITER  MISSION  1999  is  ready  to  run  on  your  Atari®Home 
Computer  with  48K  memory  and  one  disk  drive.  S50.00 

Available  at  leading  computer  software  dealers,  or  call  toll- 
free  for  further  information:  1-800-638-9292 


AH 
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microcomputer  gomes' 

A  Division  of  The  Avalon  Hill  Gome  Company 

451 7  HARFORD  ROAD,  BALTIMORE,  MD  21214     1-800-638-9292 


Porttiole  view 
of  Jupiter  and  a  moon 
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Exploring  on 
Alien  Complex 


Exploring  on 
Alien  Space  Stotion 
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READERS'  FEEDBACK 

The  Editors  and  Readers  of  COMPUTE! 


Whaf's  An  Algorithm? 

1  have  frequently  seen  the  word  algorithm  and 
would  like  to  know  what  it  means. 

I've  also  heard  that  you  should  have  a  volt- 
age spike  protector,  because  when  appliances  are 
turned  on,  they  can  produce  a  surge  in  the 
electricity  in  your  house.  Is  it  absolutely  nec- 
essary to  have  one? 

Andrew  S.  Hartman 
An  algorithm  is  a  set  of  steps  or  relationships 
which,  taken  as  a  whole,  solve  a  problem.  For  ex- 
ample, regular  pay  =  regular  hours  *  regular  rate 
of  pay  is  a  standard  algorithm  that  might  be  found 
in  a  payroll  program. 

Or:  1.  Have  user  INPUT  his  height  2.  Look  up 
correct  weight  for  this  height.  This  would  be  an  al- 
gorithm for  telling  people  how  much  they  should 
weigh. 

Using  a  voltage  spike  protector  couldn't  hurt. 
The  electricity  in  the  average  home  is  subject  to 
periodic  surges  from  various  sources.  A  lightning 
strike,  for  example,  can  introduce  very  high  voltage 
for  a  few  microseconds. 

If  you  see  the  lights  in  your  house  flickering 
often,  you  may  need  one.  On  the  other  hand,  many 
people  have  operated  their  unprotected  micro- 
computers for  years  without  any  problems. 

A  spike  protector  is  a  kind  of  insurance. 


The  Commodore  Intemoi  Clock 

I  am  trying  to  write  my  ow^n  game  program.  I 
have  already  programmed  my  screen  display,  but 
I  would  also  like  to  include  an  onscreen  timer. 
None  of  my  references  mention  how  I  can  get  a 
simple  TIME  REMAINING:  XXX  SECONDS  dis- 
play on  the  screen.  I  have  tried  loops  that  subtract 
1  from  1000  and  print  the  results  on  the  screen, 
but  so  far  they  either  scroll  the  game  display  off 
the  screen,  or  clear  the  screen.  Please  help. 

Mark  Adkins 
Try  this  BASIC  line: 
PRINTTIS 
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This  will  print  a  six-digit  number  to  the  screen.  The 
format  is  HHMMSS  where  HH  =  hours,  MM  = 
minutes,  and  SS  =  seconds.  Unless  you  have  reset 
the  timer  yourself,  the  six  digits  you  see  will  reflect 
how  much  time  has  elapsed  since  you  turned  on  your 
computer. 

To  set  the  timer,  use  the  same  HHMMSS  format 
in  this  manner: 

TIS  =  "HHMMSS" 

For  example,  TI$  =  "123335"  would  set  the  clock  to 
12:33  and  35  seconds.  Now  enter  T[$  =  "000000"  and 
PRINTT}$  to  see  the  value  changed.  Setting  Tl$  with 
any  value  betzoeen  000000  and  235959  will  start  the 
clock  running  with  that  value.  Enter  and  RUN  the 
following  short  BASIC  program  and  you'll  be  able  to 
watch  the  clock  as  it's  running: 

20  PRINT" {HOME) "TIS:GOTO20 

Using  the  TI$  function  to  create  a  timer  can  be  done 
with  an  IF-THEN  statement.  For  example,  if  you 
desire  a  10-second  timer,  set  TI$  to  0,  then  check  for  the 
ten-second  limit  with:  IF  TI$  =  "000010"  THEN. .. 
(action  desired).  Remember  that  TI$  returns  a  string, 
and  its  lowest  value  is  seconds. 

The  TI  command  is  much  like  the  TI$  command 
except  it  returns  values  in  seconds  and  fractions  of 
seconds.  Enter 

PRINTTI/60 

The  numeric  value  returned  here  is  seconds  in  the 
format  XX.XXXXXXX.  Programming  a  tinier  with 
the  TI  command  is  much  the  same  as  with  TI$.  The  TI 
value  is  set  with  the  TI$  command.  For  example,  to  set 
TIat  60  seconds,  you  would  enter:  TI$=  "000100" 
(one  minute).  To  program  the  same  10-second  timer, 
you  would  set  Tl$  to  zero  then  check  the  TI  variable 
with  IF  TI/60  =  >10  THEN  (action  desired). 

The  problem  of  the  scrolling  screen  display  can  be 
solved  with  cursor  controls  within  the  PRINT  state- 
ment. For  example,  you  can  use  the  home  (upper  left 
corner  of  the  screen)  position  as  a  starting  point.  Each 
time  you  want  to  print  your  score,  timer,  etc.,  simply 
use  the  cursor  controls  to  move  to  that  line,  print  the 
display,  then  move  back  home. 
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>bu  bypass  the  bumps,  detours 
^     and  pitfalls  of  computing 
the  moment  you  reach  for 
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The  road  to  floppy  success  is  paved  with  our  Gold  Standards. 


Maxell  speeds  your  success  in 
computing.  Helping  you  avoid  traps 
that  can  block  the  way  to  information 
you've  stored.  After  all,  our  disk  is  an 
industrv'  leader  in  error-free  perform- 
ance. Performance  backed  by  a  lifetime 
warranty. 

Consider  this:  Disks  travel  through  a 
disk  drive  where  heat  builds  up.  And  up. 
So  Ma.xell  designed  its  protective 
outer  jacket  to  defy  140°F.  The  disk 
keeps  its  shape  and  keeps  your  infor- 
mation on  track. 


How  good  is  Maxell  Gold?  We're  the 
disk  that  many  floppy  drive  manufac- 
turers trust  to  put  new  equipment 
through  its  final  paces.  And  the  unqiue 
way  we  pack  our  oxide  particles  and 
bind  them  together  means  quality  for 
the  long  run. 

Dropouts?  Disk  errors?  Just  pass 
them  by.  You're  on  the  Gold  Standard. 

maxell 

iT'swom^Hn 
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Atari  400  RAM  And  Tape 

1.  Where  do  you  find  the  RAM  that's  required  to 
run  most  programs? 

2.  Is  there  a  program  that  will  convert  Commodore 
programs  to  run  on  the  Atari  400? 

3.  What  kind  of  tapes  should  I  use  for  the  Atari 
410  cassette  recorder?  Every  one  I  try  gives  me  an 
HRROR  -143  when  I  try  to  CLOAD  from  them. 

Mike  Meyer 

1.  RAM  is  user  memory,  built  into  your  machine.  Your 
computer  is  equipped  loith  a  certain  amount,  which  can 
usually  be  expanded  (the  Atari  400  comes  xaith  16K). 
Software  packages  designate  the  amount  of  RAM  they 
require  for  the  program  and  storage,  with  a  notice  such 
as  "48K  required."  Match  this  with  the  amount  of  RAM 
you  have  in  your  machine  to  see  if  you  have  enough. 
Most  large  arcade  games  require  the  maximum  memory 
your  machine  can  support,  such  as  4SK  or  64K.  Most 
cassette-based  programs  require  only  a  mininnim  con- 
figuration, such  as  16K.  Don't  buy  a  program  tliat 
requires  more  memory  than  you  have — it  probably  won't 
work. 

2.  No  conversion  programs  exist — and  there  loill  prob- 
ably never  be  any.  The  Commodore  and  Atari  computers 
liave  some  things  in  common:  the  same  type  micropro- 
cessor (6502  or  6510),  a  similar  BASIC,  and  similar 
graphics  capabilities.  But  the  differences  are  over- 
whelmingly different.  Since  many  programs  are  inex- 
tricably bound  to  the  hardware,  iw  program  can  be 
written  to  reconcile  all  the  differences.  An  enndator  in 
hardware,  essentially  a  computer  on  a  cartridge,  is  the 
only  avenue  worth  pursuing.  We  know  of  no  Commo- 
dore emulators  for  the  Atari  computers.  As  you  gain 
experience,  you  may  want  to  try  converting  individual 
BASIC  programs  yourself. 

3.  First,  use  short  tapes.  Long,  60-munttc  tapes  are 
thinner,  and  arc  more  prone  to  flaking,  binding,  and 
stretching.  Although  you  may  not  notice  these  problems 
with  audio  tapes,  computers  can  be  much  more  exacting. 
For  the  Atari,  use  a  good-quality  audio  tape.  Computer 
digital  tapes  are  recommended  for  machines  like  the 
Commodore  64  or  TI-99I4A,  but  you  should  use  only 
audio  tape  on  the  Atari,  due  to  the  storage  technique. 
Still,  if  you  are  using  your  recorder  properly  (CSAVE- 
ing  and  CLOADing  past  the  blank  leader),  you  will 
stUl  be  able  to  get  some  tapes  to  ivork.  We've  seen  tape 
of  marginal  quality  used  with  success.  Try  cleaning 
and  demagnetizing  your  tape  lieads.  If  that  doesn't 
work,  you  will  need  to  get  your  recorder  replaced  or 
adjusted  (this  can  sometimes  be  done  in  audio  stores). 

Commodore  Disk  Drive  Device 
Number  Update 

I  am  the  owner  of  a  64  and  two  1541  disk  drives, 
and  was  therefore  quite  interested  in  the  item  you 
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published  about  changing  (1541)  device  numbers 
in  "Readers'  Feedback"  (April  1984), 

Unfortunately,  the  picture  you  showed  has 
little  relationship  to  the  circuit  boards  in  the  newest 
models  of  the  1541  disk  drive  (light  brown  case). 

I  would  appreciate  your  printing  a  note  show- 
ing the  jumper  locations  for  the  newer  model  1541s. 

Eric  H.  Larson 

As  you  pointed  out,  there  are  two  versions  of  the 
1541  disk  drive.  The  older  version,  usually  with  a 
white  case,  contains  a  long  circuit  board  that  runs 
the  length  of  the  drive.  The  newer  version,  usually 
in  a  brown  case,  contains  a  shorter  board. 

The  method  for  changing  device  numbers  on 
the  newer  1541s  is  the  same  as  we  described  before, 
except  for  the  position  of  the  jutnpers. 

Unplug  the  drive  from  the  wall  and  then  care- 
fully unscrew  and  remove  the  top  half  of  the  brown 
case.  Then  remove  the  large  silver  colored  shield  in- 
side the  disk  drive.  This  will  expose  the  circuit 
board.  As  you  view  the  drive  with  the  front  toward 
you,  the  jumpers  are  near  the  center  of  the  circuit 
board  toward  the  front  (see  picture  below). 


The  two  jumpers  look  like  round  spools  of  silver  solder 
(approximately  -Vs-inch  diameter  each)  separated  into 
halves,  with  the  two  halves  connected  by  a  thin  strand 
of  solder.  To  change  the  device  numbers  of  the  1541 
disk  drive,  the  thin  strand  connecting  the  tzoo  halves 
should  be  scratched  away  on  one  or  both  of  the  jumpers. 
As  you  look  from  the  front  of  the  drive,  the  jumper 
nearest  the  front  is  jumper  nujnber  1,  and  the  rear  is 
jumper  2. 

As  stated  in  the  1541  user's  manual,  cutting 
jumper  one,  jumper  two,  or  both,  produces  different 
numbers.  Following  is  a  chart  showing  the  different 
combinations. 


Jumper  Cut 

NewD 

Bvice  Number 

None 

8 

1 

9 

2 

10 

land  2 
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FAMILY  COMPUTING  RATED  IT.  **** 

INTRODUCING  "4  STAR'*  PUZZLE  MANIA. 

Puzzle  Mania'"  is  a  challenging  jigsaw  program  for  puzzle  lovers. 

Puzzle  Mania  is  alsoan  inspired  jigsaw  program  for  puzzle  creators. 

Because  in  addition  to  the  seven  great  puzzles  on  the  disk,  you  can 
create  your  own  pictures  on  the  screen,  paint  them  in  sixteen  different 
colors  and  let  the  program  turn  them  into  puzzles  to  save  on  a 
separate  disk. 

Each  Puzzle  Mania  puzzle  (including  your  own  creations)  can  be 
played  on  six  levels  of  difficulty.  There's  help  when  you  need  it.  And 
all  turns  are  tallied.  So  you  can  turn  the  puzzle  play  into  competitive 
play.  If  you  have  to  part  with  a  puzzle  before  it's  finished,  there's  a 
stop-and-save  feature  built  into  the  program,  too. 

Reader's  Digest  Software  created  Puzzle  Mania  for  kids  and  their 
friends  and  their  parents  and  their  grandparents  and  everybody  else 
who  likes  fun  and  games.  Look  for  it  at  your  software  store  or  call 
Customer  Service  at  1-80043 1-8800.  (NY:  1-800-262-2627; 
AK,  HI:  914-769-7000;  Canada:  514-934-0751). 

SOFTWARE  GOOD  ENOUGH 
TO  GO  OUT  AND  BUY  A  COMPUTER  FOR. 


k^^: 
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Warranty  irfornation  availiablc  upon  request  by  wrilin^in:  Reader's  Digest  Si-r^'icrt.Inc..  Microcomputer  Software  Divisicn.  Pleasant  villc.  NY.  10570.  Pu^^lt?  Mania  runs  on  Apple*  I[.  11  Plus,  lie,  llc(48K), 

Commix!orc»  64,  IBM'*  PC  and  PCjr.  Disk  drive  and  color  moniior  rniiiired.  Family  CompulniK  is  a  publication  of  Scholastic,  inc. 

Apple  i.'i  3  rctii&terrd  trndcmark  of  Applr  Cympuier,  Inc.  Commnduff  is  a  rcfiibtercd  trademark  of  CommodoR-  Ek-ctronici  LimitH  IBM  is  rewslcred  trademark  of  Inttfrnational  Hu^mes*  Machiws  Corp. 


Remember,  though,  that  unless  you're  handy  with  a 
soldering  iron,  changing  the  device  number  via  hardware 
modifications  is  permanent. 

Also  remember  that — although  not  specifically 
stated  in  the  user's  manual — opening  the  disk  drive 
and  performing  these  modifications  yourself  may  void 
the  warranty.  Consult  your  local  Commodore  represen- 
tative and  thoroughly  read  the  user's  manual  before 
attempting  any  of  these  modifications. 

If  you  feel  uncomfortable  changing  the  device 
number  using  the  hardware  method,  the  same  thing  can 
be  achieved  with  a  software  (program)  modification. 
Here  is  the  procedure: 

1.  Turn  off  all  disk  drives. 

2.  Turn  on  the  disk  drive  whose  device  number 

you  want  to  change. 

3.  Type  and  enter  the  folloxving  commands: 

CLOSE  15:  OPEN  15,8,15 
PRINT#15,"M-W",CHR$(119)CHR$(0)CHRS(2)CHR$ 

(n  +  32)CHR$(/i  +  64) 
CLOSE  15 

Change  the  n  in  the  PRINT#15  command  above  to  the 
device  number  you  want  to  assign  to  the  disk  drive.  It 
might  be  best  to  limit  the  device  numbers  to  the  range 
between  9  and  14. 

Now  you  can  turn  on  the  other  drive(s),  and  start 
processing. 

Note  the  syntax  of  the  PRINT#15/'M-"... 
command.  Contrary  to  the  instructions  in  the  1541 
user's  manual,  do  not  include  the  colon  after  the 
memory-write  (M-W)  command.  If  the  colon  is  included, 
the  device  mmdier  change  wUl  not  be  successfid. 

The  1541  demo  disk  that  was  included  with  your 
drive  also  contains  a  program  to  change  device  numbers. 
LOAD  the  program  DISK  ADDR  CHANGE  then 
RUN.  The  user  prompts  will  tell  you  what  to  do. 

VIC  Animation 

I  am  11  years  old  and  I  own  a  VIC-20.  My  friend 
owns  a  Commodore  64.  We  both  make  graphics 
on  them.  He  has  the  advantage  of  sprites,  but  1 
have  figured  out  a  way  for  the  VIC-20  to  have  a 
form  of  sprites.  The  VIC-20's  graphics  are  made 
from  top  to  bottom,  which  allows  vertical  sprites. 
Here's  a  demonstration  program. 

Bryan  D.  Stanton 

5  DIM  A(8) tK=7167 

10  PRINT"{CLR}" 

15  POKE36869,255 

20  FORM=7168TO7311:POKEM,0:NEXTM 

30  FORX=lT018:PRINTTAB(9) ;CHR$(63+X) :NEXT 

X 
40  F0RN=1T08:READA{N) : POKEK+N,A (N) :NEXTN 

50  F0RR=1T0137 

55  F0RL=1T08:P0KEK+L,A(L) :NEXTL: POKEK+1 , 0 

:K=K+1 
60  NEXTR 

65  PRINT" { CLR J " i POKE36869, 240 :END 
70  DATA  60,24,24,24,255,126,24,24 


Joysticic  To  Keyboard  Control  On 
TheTI 

Many  of  your  TI-99/4A  games  require  a  joystick. 
Unfortunately,  I  don't  own  one.  Could  you  pro- 
vide a  routine  that  would  enable  me  to  convert 
these  programs  to  keyboard  control? 

Mike  Burgin 

Several  approaches  can  be  taken  to  convert  a  program 

from  joystick  to  keyboard  control  on  the  TI.  Probably 
the  simplest  approach,  in  console  BASIC,  is  to  GOSUB 
to  a  keyboard  subroutine  whenever  the  JOY  ST  subpro- 
gram is  CALLed. 

You  shoidd  locate  this  keyboard  subroutine  at  the 
beginning  of  the  program,  to  speed  execution.  Let's  put 
such  a  subroutine  at  line  10.  The  entire  routine  will 
occupy  four  lines  beginning  at  line  10,  so  RESequence 
your  program  to  begin  at  line  50. 

Next,  find  lohere  the  subprogram  jOYST  is 
CALLed  within  the  program.  The  general  form  for  this 
statement  is  CALL  fOYST  (n,X,Y).  Here,  n  refers  to 
the  joystick  number  (either  1  or  2)  while  X  and  Y  are 
values  returned  based  oti  the  joystick  position. 

X  and  Y  may  be  represented  by  any  legitimate 
numerical  variable  name.  Note  the  variable  names  used 
for  X  ami  Y  in  the  CALL  JOYST  statement  and  then 
replace  this  statement  with  GOSUB  10. 

Then,  type  in  the  following  lines: 

5  GOTO  50 

10  CALL  KEY(0,K,SS) 

20  X=( (K=67)+(K=68)+(K=82))*-4+((K=83)+{K 

=87)+(K=90))*4 
30  Y=((K=69)+(K=82)+(K=87))*-4+((K=67)+(K 

=88)+(K=90))*4 
40  RETURN 

Now,  substitute  the  variable  names  from  the  CALL 
JOYST  statement  into  the  above  subroutine  for  X  and 
Y.  Also,  ifK  and  SS  are  used  in  the  main  program,  you 
may  need  to  name  them  differently  here. 

Just  as  zoith  the  CALL  JOYST  statement,  X  and  Y 
will  be  returned  as  -4,  0,  or  +4  in  lines  20  and  30. 
The  standard  arrow  keys  (E,  S,  D,  and  X)  are  tested  for 
in  this  routine  along  with  W,  R,  Z,  and  Cfor  diagonal 
movement. 

Providing  a  routine  for  keyboard  control  in  Ex- 
tended BASIC  is  even  easier.  Since  we  can  write  our 
own  subprogram  (using  SUB),  we  no  longer  need  worry 
about  the  variable  names  for  X  and  Y  in  the  main  pro- 
gram. Variables  used  in  a  subprogram  are  local  to  that 
subprogram. 

Our  subprogram,  which  we'll  call  JOY,  must  be 
placed  at  the  end  of  the  program.  Assuming  there's 
room  above  line  993,  type  in  the  following: 

1000  SUB  J0Y(Z,X,y) 

1020  X=( (K=67)+(K=6B)+CK=82) )*-4+( (K=83)+ 

(K=87)+(K=90) )*4 
1030  Y=( {K=69)+(K=82)+(K=87) )*-4+( (K=67)+ 

(K=88)+(K=90))*4 
1040  SUBEND 
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Compumate  2100 
from  SWINTEC 


IT'LL  INTERFACE  WITH  YOUR 
COMPUTER  AND  YOUR  BUDGET 


SWINTEC'S  Compumate  2100  letter-quality  copy  printer 
has  built-in  parallel  and  serial  interfaces  that  make  it  com- 
patible with  your  computer ...  no  matter  whose  computer 
you  use.  What's  more,  its  very  modest  price  tag  of  $649 
is  no  more  than  you'd  pay  for  an  inexpensive  dot  matrix 
printer. 

It  adds  instant  letter-quality  word  processing  to  your  com- 
puter capabilities.  It  handles  correspondence . . ,  prints  out 
charts  and  financial  projections ...  in  fact,  gives  you  a 
sharp,  clear  hard  copy  of  anything  in  the  computer. 

Microprocessor-controlled 
Compumate  has  a  logic- 
seeking  algorithm  that  skips 
over  white  space  to  print  up  to 
20  characters  a  second,  The 
1 00-character  daisy  wheel  print 
element  is  available  in  any  one 
of  the  10  most  wanted  type 
faces.  More  features:  10,  12 
and  15  pitch  selections  and  a 
256-character  buffer,  plus  LED 


1                                                           J 

1       n  Send  me  more  information  about  the  Compumate  2100,     1 
1       D  Have  a  dealer  contact  me  for  a  demonstration.                 1 
1       n  Contact  me  about  becoming  a  SWINTEC  dealer.               1 
1                                                                                                 1 

1         NAME                                                                                                                    1 

1         COMPANY/DEALERSHIP 

1 

1                                                                                                                                       1 
1        ADDRESS                                                                                                      1 

1          CITY 

STATE          ZIP                          1 

1          TELEPHONE                                                                                                                  1 

displays  tell  you  when  your  Compumate  is  at  the  ready. 
The  Compumate  2100  requires  no  special  training  to 
operate.  It  has  its  own  simple  self-testing  procedures  and 
is  backed  by  the  renowned  SWINTEC  network  of  dealer 
service  professionals. 

Why  pay  more  for  a  printer  and  get  much  less?  Join  the 
switcli  to  SWINTEC.  At  your  dealer's  now,  or  return  the 
coupon. 

Dealers,  too,  are  invited  to  contact  us  about  carrying  the 

Compumate  and  the  full 
SWiNTEC  line  of  quality  office 
equipment  including  electronic 
typewriters  and  calculators, 


CORPORATION 

23  Poplar  Street 
East  Rutherford,  New  Jersey 
201/935-0115  Outside  New  Jersey, 
call  toll-free  800/225-0867 


Next,  in  the  main  program,  change  CALL 

}OYST(n,X,Y)  to  CALL  JOY(n,X,Y)  so  that  our 
keyboard  subprogram  will  be  CALLed  rather  than  the 
system  joystick  subprogram  (n  is  1  or  2). 

Last,  for  either  console  or  Extended  BASIC,  check 
to  see  if  the  fire  button  is  used.  You  should  find  a  state- 
ment of  the  form  CALL  KEY(n,K,S)  in  the  program  (n 
is  1  or  2).  Shortly  thereafter  in  the  program,  a  check  for 
the  value  of  K  will  be  made.  If  K  is  equal  to  18,  then  the 
fire  button  has  been  pressed. 

With  keyboard  control,  we  can  use  the  space  bar 
rather  than  the  fire  button.  Change  n  (which  is  1  or  2} 
to  0  in  the  appropriate  CALL  KEY(n,K,S)  statement. 
Also,  change  18  to  32  in  the  subsequent  check  for  the 
value  of  K. 

Hex-To-Decimal  Conversions 

As  a  faithful  reader  of  your  magazine,  I'd  like  to 
say  that  I'm  surprised  at  how  many  computer 
hobbyists  still  have  not  found  a  simple  decimal- 
to-hexadecimal  conversion  program.  And  I 
haven't  noticed  one  in  any  issue  of  your  maga- 
zine, so  I've  written  this  short  BASIC  program  to 
do  the  conversions.  It  will  work  on  most  comput- 
ers with  little  or  no  modification. 

Frank  Sgabellone 

10    A$="0123456789ABCDEP"iINPUT"DEC/HEX";A 
:B=l:C=9:D=16tC:PRINTA;"    =    $";:A=A+1 

; rem   107 

20    1FA-D>0THENA=A-D:B=B+1:GOTO20    : rem    156 

30    PR1NTMID5(A?,B,1) ; : B=l :C=C-1 :D=16tC:IF 
O-1THEN20  trem  235 

40    PRINT" {5    SPACES }"iG0T0 10  : rem   9 

Hexadecimal  numbers  are  widely  used  in  machine 
language  since  they  are  more  convenient  for  that 
kind  of  programming  than  the  normal  decimal 
numbers. 


Compilers  For  The  64 

I  would  appreciate  some  clarification  on  compilers. 
I  have  seen  advertisements  for  several  compilers 
(DTL-BASIC,  and  Metacompiler  for  Forth)  and 
would  like  to  know  if  they  actually  produce  ML 
code  that  will  run  on  any  64. 

In  other  words,  can  I  write  a  program  in 
BASIC  or  Forth,  run  it  through  the  compiler,  and 
have  ML  code  that  will  run  on  another  64  that 
doesn't  have  access  to  the  compiler? 

Paul  Filiant 

There  are  two  types  of  compilers:  those  that  produce 
native  code  (tnachine  language),  and  those  that  gener- 
ate pseudocode  (P-code).  P-code  compilers  translate 
the  source  program  into  another,  smaller,  faster  lan- 
guage. This  pseudocode  must  still  be  interpreted,  like 
BASIC,  but  it's  interpreted  much  more  quickly.  Also, 
P-code  interpreters  can  run  the  same  P-code  program 


on  many  machines,  whatever  the  microprocessor  used. 
But  to  run  a  P-code  compiled  program,  you  must  have 
a  copy  of  the  P-code  interpreter. 

Other  compilers  generate  true  machine  language. 
This  has  the  advantage  of  speed,  if  not  portability.  The 
object  code  produced  by  the  compiler  needs  a  set  of 
general-purpose  subroutines.  Otherwise,  the  compila- 
tion of  PRINT  would  expand  into  a  large  chunk  of  ma- 
chine language  each  time  it  is  used.  Instead,  it  is  more 
memory-efficient  to  compile  PRINT  into  a  subroutine 
call  to  the  general  PRINT  routine.  The  set  of  subroutines 
required  is  called  the  runtime  package,  and  is  included 
in  the  compiled  program. 

A  compiler  generally  produces  a  complete  program 
that  luill  run  on  any  machine,  ivithout  the  compiler 
itself.  However,  we  now  run  into  the  problem  of 
copyright.  You  have  written  and  therefore  own  the 
rights  to  the  original,  uncompiled  program,  but  who 
owns  the  compiled  program?  You  might  think  you  retain 
the  copyright,  since  compiling  is  something  like  trans- 
lating a  book  into  a  different  language. 

However,  you  don't  own  the  runtime  package. 
Some  companies  require  you  to  pay  a  royalty  for  selling 
the  compiled  program.  Other  companies  require  a  special 
security  key  to  run  the  compiled  program.  (A  security 
key  prevents  a  program  from  running  without  it.  It  is 
usually  a  ROM  chip  or  some  device  that  plugs  into  a 
joystick  or  cassette  port.)  This  is  like  a  royalty;  you 
must  buy  security  keys  for  every  copy  of  the  compiled 
program  you  distribute.  Still  other  companies  give  you 
the  freedom  to  distribute  your  compiled  code,  as  long  as 
you  include  a  notice  specifying  that  it  was  compiled 
with  their  product.  Be  sure  you  understand  what 
copyright  rules  are  enforced  by  the  compiler  company. 
If  in  doubt,  write  them. 


Reading  The  Atari  800  PIA  Registers 

I  am  16  years  old  and  own  an  Atari  800.  Currently, 
I  am  trying  to  use  the  joystick  ports  for  certain  I/O 
applications.  So  far,  the  only  problem  I've  en- 
countered is  speed.  The  registers  that  store  input 
information  from  the  joyports  are  updated  only 
every  sixtieth  of  a  second.  This  is  too  slow  for  me. 
Is  there  any  way  to  read  the  joystick  ports  at  a 
faster  rate? 

Christopher  Terpin 

Instead  of  using  the  shadow  locations  for  the  joysticks, 
you  can  read  the  joystick  ports  directly  from  the  data 
direction  registers  in  the  6520  PIA  chip.  These  are  truly 
general-purpose  input /output  ports,  with  one  byte  used 
for  two  joysticks.  Each  bit  can  be  programmed  indepen- 
dently for  input  and  output.  Complete  information  on 
this  can  be  found  in  the  Atari  Hardware  Reference 
Manual.  Some  information  is  also  found  in  Mapping 
the  Atari,  available  from  COMPUTE!  Books.  In  the 
meantime,  examine  the  information  found  at  $D300. 
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Get  the  jump  on  the  weather* 
man  by  accurately  forecasting 
the  local  weather  yourself! 


The  beautiful  princess  is  held 
captive  by  deadly  dragons.  Only 
a  knight  in  shining  armor  can 
save  her  now! 


A  time-saving  organizer  for 
coupons,  receipts  and  more. 


A  scientifically  proven  way  to 
develop  an  awesome  memory. 


Cut  your  energy  costs  by  moni- 
toring your  phone,  electric  and 
gas  bills. 
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School-age  and  pre-school 
children  are  rewarded  for  right 
answers,  corrected  on  their 
wrong  ones. 


You  are  trapped  in  a  five- 
story,  12o-room  structure 
made  entirely  of  ice.  Find  the 
exit  before  you  freeze! 


Compulerize  car  maintenance 
to  improve  auto  performance, 
economy  and  resale  value. 


yy^    y^  ^  • 
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A  real  brainflexer.  Deflect 
random  balls  into  targets  on 
a  constantly  changing  playfield. 


"iPASH      ■"--> 


Take  control  of  you  r  personal 
finances  in  less  than  one  hour 
a  month, 


Create  multi-colored  bar 
graphs  with  a  surprisingly 
small  amount  of  memory. 


A  fun  way  to  dramatically 
increase  typing  speed  and 
accuracy. 


Get  up  to  30  new  programs  and  games 

for  less  ttian  1 5  cents  eacti — 

every  monthi  in  COMPUTE! 


Every  month,  COMPUTE!  readers  enjoy  up  to  30  brand 
new,  ready-to-run  computer  programs,  even  arcade 
quality  games. 

And  when  you  subscribe  to  COMPUTE!  at  up  to 
40%  off  the  newsstand  price,  you'll  get  them  all  for  less 
than  15  cents  each! 

You'll  find  programs  to  help  you  conserve  time,  ener- 
gy and  money.  Programs  like  Cash  Flow  Manager.  Re- 
tirement Planner.  Coupon  Filer.  Dynamic  Bookkeeping. 

You'll  enjoy  games  like  Air  Defense,  Boggier,  Sla- 
lom and  High  Speed  Mazer. 

Your  children  will  find  learning  fast  and  fun  with 
First  Math,  Guess  That  Animal  and  Mystery  Spell. 

Looking  for  a  challenge?  You  can  write  your  own 
games.  Customize  BASIC  programs.  Even  make  beau- 
tiful computer  music  and  pictures. 

It's  all  in  COMPUTE!  All  ready  to  type  in  and  run 
on  your  Atari,  Apple,  Commodore,  PET/CBM,  TI 99/4A, 
Radio  Shack  Color  Computer,  IBM  PC  or  IBM  PCjr. 

What's  more,  you  get  information-packed  articles, 
product  reviews,  ideas  and  advice  that  add  power  and 
excitement  to  all  your  home  computing. 


And  when  it's  time  to  shop  for  peripherals  or     J^ 
hardware,  check  COMPUTE!  first.  Our  product  ^ 
evaluations  can  save  you  money  and  costly  mis-j^ 
takes.  We'll  even  help  you  decide  what  to  buy:^r 
Dot-matrix  or  daisy-wheel  printer?  Tape    ^ 
storage  or  disk  drive?  What  about         .jJ^euBcr'DiRP 
modems?  Memory  expansion  kits?       Jr    SUBSCRIBE 
What's  new  in  joysticks,  paddles      ^^  NOW  AND 

>^  SAVE  UP  TO 
.#  40%ON  COMPUTE! 


and  track  balls? 


SAVE 
UP  TO  40% 

OFF  THE 

NEWSSTAND 

PRICE  ON 

COMPUTE! 


CAUTOU-FREE 
1-800-334-0868 


Return  the 
coupon  or 
postpaid    ^ 
cord         j^ 
today  I  ^^ 

^r      Name 
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"Filer"  Modification 

I  have  really  enjoyed  using  the  "Filer"  program 
which  appeared  in  October  1983  COMPUTE!  "Be- 
ginner's Page."  However,  I  would  like  to  modify 
it  to  store  and  search  any  number  of  items  (defined 
by  variable  T  in  line  1)  without  having  to  update 
T  each  time  another  item  is  added.  Can  you  help 
me  with  this? 

Richard  Hamilton 

You  can  allow  for  a  varying  number  of  items  in  your 
file  by  making  just  a  few  modifications  to  this  program. 
First,  delete  line  1.  Then,  adjust  the  DlMension  state- 
ment in  line  3  to  some  maximum  number  of  entries — say 
50.  Next,  add  the  following  lines: 

10  I=I+I:READ  A$(I),B$(I),C$CI) 

12  IF  A$(I)<>"END"  THEN  10 

13  T=I-1 

522  DATA  END, 0,0 

In  line  10,  the  variable  I  is  the  number  of  the  item 
being  READ.  Line  12  checks  for  the  end-of-data  entry 
in  line  522.  If  the  end-of-data  flag  is  not  observed  in 
line  12,  the  counter  I  is  incremented,  and  another  item 
(title,  date,  and  author  as  A$(l),  B$(l),  and  C$(I))  is 
READ.  Othenoise,  no  more  DATA  is  READ  and  T, 
representing  the  actual  number  of  items,  will  be  set  in 
line  13. 


What  is  A  Scratch  Disk? 

I  have  a  1541  disk  drive,  and  have  a  question  about 
the  performance  test  program  included  on  the 
TEST/DEMO  disk  that  comes  with  the  drive. 

When  you  run  the  program  it  instructs  you 
to  insert  a  scratch  disk.  What  is  a  scratch  disk?  Is 
it  the  TEST/DEMO  disk,  and  can  I  damage  the 
TESTIDEMO  disk  if  the  program  continues  with  it 
in  the  drive? 

Harry  Metz 

Yes,  the  programs  on  the  disk  can  be  damaged.  If  the 
write-protect  notch  is  not  covered  and  you  continue 
running  the  program  with  the  TEST/DEMO  disk  in 
the  drive,  all  of  the  programs  could  be  wiped  out. 

In  computer  terminologi/,  scratched  is  defined  as 
meaning  empty  or  available  for  use.  A  scratch  disk 
is  one  that  has  no  useful  programs  on  it,  and  can  be 
used  to  SAVE  files.  A  scratch  tape  is  the  same.  It's  like 
a  "scratch  pad." 

When  the  performance  test  prompts  you  for  a 
scratch  disk,  take  out  the  TEST/DEMO  disk,  and  place 
a  blank  disk  into  the  drive.  Do  not  use  a  disk  which  has 
programs  on  it  that  you  desire  to  keep. 

Changing  The  Atari  800  Cursor 

I  am  working  on  a  program  for  my  Atari  800.  I 
would  like  to  know  how  to  change  the  cursor 
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from  the  ordinary  box  shape  to  a  line.  I  saw  this 
done  in  an  adventure  game  and  I  thought  it  would 
be  something  nice  to  use  in  my  programs. 

John  Runions 

You  will  need  to  write  your  own  input  routine  which 
accepts  keys  from  the  keyboard,  puts  them  into  a  string, 
and  permits  correction.  Then,  the  cursor  you  use  is  up 
to  you.  Disable  the  system  cursor  with  POKE  752,1. 
You  can  display  a  graphics  character  on  the  line 
below  the  character  it  is  highlighting.  You  could  use  a 
redefined  character  set,  with  patterns  for  letters  with 
the  cursor  included  (you  would  then  alternate  between 
the  normal  character  and  the  underlined  character). 
You  could  also  use  a  player  or  a  missile  as  a  cursor  (as 
done  in  "Scriptor,"  April  1983).  There  are  so  many 
ways  to  display  graphics  on  the  Atari  that  these  sugges- 
tions barely  scratch  the  surface  of  the  possibilities. 


Memory  Management  In  IBM,  Atari, 
And  Macintosh 

Methods  of  RAM  management  are  among  the 
most  important  aspects  of  computer  operation, 
but  I  can  find  practically  no  information  on  this. 
How  does  one  computer  compare  with  another  in 
memory  management?  Why  is  it  that  even  in  the 
IBM  16-bit  computer,  BASIC  RAM  is  limited  to 
60864  bytes  with  256K  memory  installed?  How 
fast  would  IBM  load  a  program?  I  am  told  that 
IBM  drives  use  512-byte  sectors,  9  per  track.  Does 
this  mean  a  fourfold  increase  in  speed  {from  Atari's 
128  bytes  per  sector)?  What  about  the  new  Apple 
Macintosh?  More  than  anything  else,  the  speed 
with  which  swaps  in  memory  are  made  deter- 
mines the  horsepower  of  a  computer. 

Orville  E.  Bean 

The  factors  which  determine  how  effectively  a  computer 
can  manage  memory  are  the  amount  of  memory  the 
central  processing  (CPU)  chip  can  address  directly,  and 
the  number  of  bits  the  CPU  can  transfer  to  or  from 
memory  at  one  time.  To  use  your  phrase,  a  16-bit 
machine  has  more  horsepower,  since  it  can  grab  16  bits 
at  a  time  from  memory,  instead  of  8  bits.  Most  home 
computer  CPUs,  like  the  6502  chip  used  in  the  Apple, 
Atari,  and  Commodore,  can  directly  address  64K  bytes 
and  transfer  8  bits  at  a  time.  The  8088  CPU  in  the  IBM 
PC  and  PCjr  can  directly  address  1024K  bytes  (or  one 
megabyte).  However,  it  organizes  this  memory  into  16 
blocks  (called  segments)  of64K  each.  IBM's  Microsoft 
BASIC  luas  written  to  operate  within  one  segment, 
which  is  why  only  60K  is  available  for  programming 
after  the  computer  takes  aioay  what  it  needs  for  its  own 
operations,  (There  is  at  least  one  third-party  BASIC  for 
the  PC  that  supports  all  available  memory.)  Although 
the  PC  and  PCjr  are  usually  called  16-bit  computers, 
their  CPUs  can  actually  transfer  only  8  bits  at  a  time. 
The  CPU  in  the  neio  Macintosh  can  directly  address  16 


9  to  5  itis  business...  after  5  its... 


Madl  Controller 


No  matter  what  time  of  day  it  is,  MAIL  CONTROLLER 
is  always  tliere  to  l<;eep  me  organized.  Wtiether  for 
my  business  life  or  social  life,  it's  my  choice  for  list 
infonriation  management, 

MAIL  CONTROLLER  is  a  mini-database  that  can  store 
over  2,000  individual  records  per  disK  each  with  up  to  7 
different  fields.  And,  one  of  the  most  useful  features  of 
MAIL  CONTROLLER  is  the  self-design  field  capability 
allowing  me  to  specify  the  type  of  data  to  be  stored. 
So  not  only  can  I  keep  a  listing  of  mailing  addresses,  but 
of  phone  numbers  and  anything  else  that  needs  to  be 
filed  in  a  concise  and  comprehensive  nnanner. 


MAIL  CONTROLLER  also  enables  the  exact  information 
I  need  to  be  called  up  in  seconds  by  specifying  any  or  all 
fields,  The  "wild-card"  search  technique  adds  even  greater 
assistance.  And,  of  course,  MAIL  CONTROLLER  is  printer 
compatible  with  instant  printouts  of  both  lists  and 
mailing  labels. 

This  list  handler  provides  many  advanced  capabilities,  yet, 
allows  incredible  ease  of  operation.  With  its  step-by-step 
documentation  and  instructional  screen  prompts,  MAIL 
CONTROLLER  is  a  cinch  to  learn  and  use ...  any  time  of 
day!  Commodore  64  (Disk). 
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megabytes  (16384K)  and  can  tratjsfer  data  to  or  from 
memory  16  bits  at  a  time. 

As  to  disk  access,  the  most  important  limitation 
to  speed  is  in  the  disk  interface.  Even  if  you  had  a 
hard  disk — and  they're  extremely  fast — you  would 
still  be  limited  by  how  quickly  your  computer  and  disk 
drive  could  communicate.  Many  home  computers  use 
serial  interfaces,  both  for  economy  and  to  comply 
with  FCC  regulations.  (A  serial  interface  transfers  one 
bit  at  a  time,  using  few  wires,  whereas  a  parallel  interface 
transfers  a  whole  byte  (8  bits)  at  a  time,  over  many 
wires.  Too  many  wires  amplify  the  tendency  of  a  cable 
to  act  as  a  transmitting  antenna  of  radio-frequency 
interference.) 

The  IBM  computer  uses  a  parallel,  high-speed, 
direct-memory  access  (DMA)  interface.  The  computer 
hardware  can  directly  interact  with  the  disk  controller. 
Other  computers  have  to  treat  the  disk  drive  as  a  remote 
peripheral,  communicatitig  and  buffering  data.  Again, 
the  interface  limits  the  speed,  but  disk  formats  vary  in 
efficiency.  An  IBM  drive  can  read  one  512-byte  sector 
without  moving  the  head,  whereas  you  have  to  locate 
four  128-byte  sectors  to  read  as  much  data  on  an  Atari 
disk  drive.  Since  the  Macintosh  uses  a  small  3V4-inch 
disk,  with  data  tightly  packed  (400K),  less  movement  of 
the  head  is  needed  to  find  information,  so  these  new 
drives  are  usually  faster. 

Automatic  SYS  For  Commodore  ML 
Programs 

I  really  enjoy  your  programs  that  are  written  in 
machine  language.  I  am  accumulating  quite  a 
collection  of  ML  programs.  The  problem  I'm 
having  is  trying  to  remember  the  SYS  (beginning) 
addresses  to  start  them.  Is  there  a  way  to  include 
a  line  like  10  SYS  49152  in  the  program  so  that  all 
one  would  have  to  do  is  type  and  enter  RUN  to 
start  the  program? 

Kris  Wechter 

Yes,  it  IS  possible.  As  a  matter  of  fact,  many  commercial 
games  do  just  that. 

The  BASIC  program  10  SYS  2064  uses  U  bytes. 
You  can  start  writing  your  machine  language  program 
past  the  end  of  this  short  BASIC  program  (memory 
location  2064  =  $0810,  on  the  Commodore  64,  for 
example). 

After  it's  cojnpleted,  SAVE  it  (with  a  machine 
language  monitor)  from  address  $0801  to  the  end  of 
your  ML  program.  This  technique  enables  you  to  LOAD 
it  like  a  BASIC  program  and  enter  RUN  to  start  it. 

When  you  use  this  method,  you  can  LOAD  the 
program  with  either  the  LOAD  "filename", number 
or  LOAD  "filename", number, 2  format  ("number  = 
device  number,  1  for  tape  or  8  for  disk). 

Another  nice  trick  is  to  SAVE  the  programs  with 
the  SYS  addresses  in  the  filename.  For  example,  if  you 
have  a  game  called  Saucers  that  starts  at  address  49152, 
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SAVE  it  to  tape  or  disk  with  a  filename  o/ Saucers 
49152.  That  way  you'll  never  forget. 

If  you  presently  have  programs  on  tape  or  disk, 
and  you  can't  remember  their  starting  addresses,  RUN 
one  of  these  BASIC  programs.  It  will  tell  you  what  the 
starting  address  is. 

Starting  Address  For  Disk  Programs 

10  INPUT  "EcLR} ENTER  PROGRAM  NAME"rPN$ 

20  OPEN8,8,8,PN5+",P,R" 

30  GET#8,A$,B$ 

40  PRINT "START  ADDRESS  OF  {RVS}";PN$;" 

{OFF }  IS : "ASC ( AS+CHR$ ( 0 ) ) +256*ASC (B$+C 

HR$(0)) 
50  CLOSES: END 

Starting  Address  For  Tape  Progranns 

10  INPUT" {CLR] ENTER  PROGRAM  NAME";PN$ 

20  OPEN  1,1,0,PN$ 

30  PRINT "START  ADDRESS  OF  { RVS} " rPN$ ; " 

[OFF}  IS:"PEEK(829)+2  56*PEEK(830) 
40  CL0SE1:END 


Relocating  Commodore  Programs 

If  I  type  in  a  VIC-20  program  from  your  magazine 
on  my  64  and  save  it  on  tape  or  disk,  will  the  pro- 
gram run  on  my  friend's  VIC-20? 

Ann  Harrison 

Yes,  it  will.  Both  the  VIC-20  and  the  64  have  the  ability 
to  automatically  relocate  BASIC  programs.  There  is 
only  one  restriction.  You  must  LOAD  them  using  this 
syntax: 

LOAD  "filename",nuinber 

where  number  is  the  device  number  (1  for  tape,  8  for 
disk).  It  will  not  work  if  you  load  with  the  syntax: 

LOAD  "filename",nuinber,l 

The  extra  ,1  after  the  device  number  tells  the  computer 
to  load  the  program  back  into  the  exact  area  of  memory 
from  where  it  was  originally  SAVEd.  This  may  cause 
your  programs  to  run  abnormally  because  the  beginning 
of  BASIC  memory  is  different  for  the  VIC  and  64. 

Atari  800  Keyboard  Failure 

I  own  an  Atari  800  computer  with  48K.  Five  of  my 
console  keys  (these  are  6,  7,  T,  Y,  and  N)  no  longer 
call  a  character  to  the  screen  when  they  are 
pressed.  I  have  tried  turning  off  the  computer 
and  then  turning  it  back  on,  but  this  does  not 
solve  my  problem.  The  90-day  warrant}'  by  Atari 
has  expired,  so  I  have  to  solve  the  problem 
myself. 

Is  this  problem  simple  enough  to  be  solved  at 
home?  If  not,  then  where  should  I  take  my 
machine  and  approximately  how  much  would  it 
cost  to  get  it  fixed? 

Luis  A.  Betances 
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Books  that  teach  you  to  program 
While  turning  work  into  play. 

Books  of  music,  math,  mysteries. 
Mazes. . .  and  more. 

Books  that  let  your  originality  shine, 
And  explore  by  computer 

Your  creative  mind. 


Creative  Pastimes: 
Books  as  unique  as  you  are. 

Look  for  9  new  Creative  Pastimes  Books  in  your  favorite  bookstore,  computer  store  or  supermarket.  Available 

now  for  or^ly  $6.95.  Compatible  with  the  most  popular  home  computers.  Suitable  far  all  ages.  For  rrwrre  inforTmatkm,  callus  toll  free: 

(800)  336-0338.  Or  write:  RestonComputer  Group,  APrentice-HaHCompany,  11480  Sunset  Hi^  Road,  Resion,  Virginia  22090. 


Of  course,  we  cannot  diagnose  your  problem  sight  un- 
seen, but  we  do  have  a  few  suggestions.  First,  you  can 
easily  pry  off  the  keycaps  with  a  paper  clip.  (Be  careful: 
The  spring  may  jump  out.)  Check  to  see  that  the  contacts 
are  clean,  with  no  particles  preventing  closure  of  the 
two  contacts. 

If  that  doesn't  help,  and  if  you  don't  mind  opening 
your  computer,  the  keyboard  is  easily  accessible.  (Be 
sure  the  computer  isn't  plugged  into  the  wall  socket.) 
Check  the  keyboard  cable  to  see  that  it  is  not  tivisted, 
frayed,  or  loose.  If  this  isn't  the  cure,  you'll  have  to 
return  your  computer  to  an  authorized  Atari  Service 
Center.  Call  Atari  Customer  Service  for  the  name  of  the 
dealer  nearest  you,  toll-free:  (800)  538-8543. 


Expanding  Atari  800  To  64K 

I  have  an  Atari  800  which  1  recently  expanded  to 
48K  by  adding  an  Intec  32K  board.  This  addition 
leaves  an  open  slot  in  my  memory  compartment. 
Can  1  now  just  add  a  16K  board  in  this  open  slot 
to  bring  my  machine  up  to  64K?  Or  do  I  need  some 
additional  hardware  or  software  to  make  this  up- 
grade possible? 

NeilG.  Wyattll 

It's  not  that  easy.  The  6502  in  your  computer  can  access 

64K  at  a  time,  but  that  includes  both  ROM  and  RAM. 
Your  machine  needs  16K  of  space  for  ROM  and  other 
system  memory,  leaving  you  zoith  a  maximum  of48K. 
Adding  another  16K  would  only  hopelessly  confuse 
your  machine.  There  are  companies  ivhich  manufacture 
64K  RAM  boards.  Some  of  these  let  you  rotate  segments 
of  your  memory  with  a  large  bank  of  extra  memory. 
Others  let  you  temporarily  make  the  ROMs  disappear, 
revealing  underlying  RAM.  This  is  the  technique  used 
in  the  new  Atari  XL  computers,  and  on  the  Commodore 
64.  At  least  one  company  lets  you  plug  your  e.xisting 
RAM  chips  into  a  bare  board  to  save  you  money  in  the 
upgrade. 


No  Easy  Conversion  From  V9C  To  64 

Being  the  previous  owner  of  a  VIC-20,  I  have  sev- 
eral VIC  programs  that  I  would  like  to  use  with 
my  new  64.  Is  there  a  conversion  factor  for  memory 
locations  available? 

Bill  Powell 

Translating  programs  from  the  VIC  to  the  64  is  not 
always  simple.  There  are  many  significant  differences 
between  the  tzvo  computers.  For  example,  the  SID 
(Sound  Interface  Device)  chip  in  the  64  is  much  more 
complex  than  the  VIC  chip  (Video  Interface  Chip)  in  the 
VIC,  so  sound  routines  have  to  he  rewritten. 

Color  and  screen  memory  in  the  64  are  both  1024 
bytes  long,  while  in  the  VIC  they  are  512  bytes.  Also, 
the  screen  and  color  memory  locations  in  the  64  and 
VIC  are  different.  This  means  that  all  POKEs  and 
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PEEKS  to  screen  and  color  memory  have  to  be  changed. 
There  is  also  the  problem  of  "shifted"  ROM.  BASIC  is 
stored  in  permanent  memory  beginning  at  address 
$A000  in  the  64,  while  BASIC  starts  at  address  $C000 
in  the  VIC.  For  example,  the  print  fixed-point  value 
routine  in  BASIC  ROM  is  at  $BDCD  in  the  64,  and 
$DDCD  in  the  VIC. 

The  way  to  corwert  your  programs  is  to  go  through 
them  one  line  at  a  time,  and  rewrite  where  necessary. 


COMPUTE!  welcomes  questions,  comments,  or 
solutions  to  issues  raised  in  this  column.  Write  to: 
Readers'  Feedback,  COMPUTE!  Magazine,  P.O. 
Box  5406,  Greensboro,  NC  27403.  COMPUTE! 
reserves  the  right  to  edit  or  abridge  published 
letters.  © 
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.nnouncing 
the  first  computer 
music  program  that 
actually  sounds  lil<e 


music. 


LET'S  FACE  IT,  Up  till  now,  music 
programs  for  your  home  computer 
have  all  sounded,  well,  pretty  lame. 
There  were  the  ones  that  resembled 
tittle  electronic  music  boxes,  remem- 
ber? And  then  there  were  those  that 
sounded  like  so  many  burps. 

Enter  Music  Construction  Set.™  It's 
the  first  music  program  that  really 
makes  use  of  the  power  of  that  ma- 
chine you've  got.  If  you're  a  serious 
student,  this  means  you'll  be  able  to 
work  with  an  intricacy  and  range  of 
sound  quality  you've  never  heard  be- 
fore on  a  computer  And  if  you  know 
nothing  about  music,  you'll  find  some- 
thing even  more  important.  Namely, 
that  this  thing  is  simple  enough  to 
be  a  lot  of  fun. 

Take  a  good  look  at  this  screen 
because  it,  you,  and  a  joystick  are  the 
whole  story  here. 

That's  you  at  the  right  end  of  the 
staff  of  notes  —  the  little  hand.  Move 
the  joystick,  and  you  move  the  hand. 
Use  it  to  carry  notes  up  to  the  staff. 
Lay  in  rests,  signatures,  clefs,  then  point 


NOW  AVAILABLE  FOR 

ATARI  HOME  COMPUTERS 

AND  THE  COMMODORE-64 


to  the  little  piano  in  the  lower  right 
and  listen,  because  you'll  hear  the 
whole  thing  played  back. 

Move  those  little  scales  in  the  mid- 
dle up  and  down  to  vary  the  music's 
speed,  sound  quality,  and  volume.  Use 


MIfSIC 

CoHSTRUCTUkuT 
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the  scissors  to  cut  out  whole  measures, 
then  use  the  glue  pot  to  paste  them 
in  somewhere  else.  Got  a  printer? 
Great.  Print  the  score  out  and  show  it 
off  to  your  friends. 

But  what  if  you're  not  up  to  writing 
your  own  stuff  yet?  No  problem. 
There  are  twelve  pieces  of  music  al- 
ready in  here,  from  rock  'n  roll  to 
baroque.  They 're  fun  to  listen  to,  and 
even  more  fun  to  change.  (Apologies 
to  Mozart.) 

The  point  is,  the  possibilities  are 
endless.  But  if  you're  still  skeptical, 
visit  your  nearest  Electronic  Arts  dealer 
and  do  the  one  thing  guaranteed  to 
send  you  home  with  a  Music  Con- 
struction Set  in  tow. 

Boot  one  up.  Point  to  the  piano. 
And  listen. 


ELECTRONIC  ARTS'" 


MUSIC  CONSTRUCTION  SET  is  now  available  for  Apple  II.II+,  lie.  and  Commodore  64  compuEer^.The  Apple  version,  wUh  a  Moclcingboardr  plays  chords  of  up  to  six  noECs  each  The  Commodore  version  plays  chords 
of  up  to  three  notes  each  Apple  is  a  regisfercd  trademark  of  Apple  Computer  Commodore  is  a  registered  rrademarl:  of  Commodore  Business  Machines,  Inc.  For  more  information  about  Electronic  Arts,  write  us  at  2755 
Campus  Drive.  San  Mateo.  CA  94403  or  call  (415)  571-7171- 


Evolutionary  To  The  Core: 


The  Apple  lie  Heads  For  Home 

Selby  Batemon,  Features  Editor 


Apple  Computer  has  made  1984 
its  year  of  surprises,  first  with  the 
"revolutionary"  Macintosh  and 
now  with  the  "evolufionan/" 
Apple  Ik.  The  new  JVi-pound 
portable  has  already  achieved 
critical  acclaim  and  impressive 
early  sales.  Is  it  the  computer  for 
you? 


"The  lie  is  not  a  home  com- 
puter," says  Apple  President 
John  Sculley.  "It's  for  the  seri- 
ous user  in  the  home." 

Sculley  isn't  just  playing 
word  games  with  that  comment. 
It  is  as  succinct  a  statement  of 
Apple's  plans  for  the  lie  as 
you'll  find.  And  it  addresses  the 
biggest  challenge  and  the  great- 
est opportunity  for  the  Cuper- 
tino, California,  company:  To 
convince  a  huge  untapped  home 
market  that  the  lie  is  not  a  low- 
end  computer.  And  at  the  same 
time,  Apple  is  targeting  owners 
of  low-end  microcomputers  who 
want  more  power,  more  soft- 
ware, and  more  portability, 

$15  Million  In 
Advertising 

By  now  you  may  have  heard  or 
read  something  about  the  Ik's 
power  (128K  RAM),  price 
($1295),  portability  (notebook 
size,  7V2  pounds,  built-in  low- 
profile  5V4-inch  disk  drive),  and 
compatibility  (it  runs  thousands 
of  Apple  11  software  programs). 
And  you've  probably  seen  some 
of  the  $15  million  in  advertising 
that  Apple  has  spent  these  past 
few  months. 
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The  $1295  Apple  lie,  with  a  half-height  5Vi-inch  built-in  disk  drive  on 
the  right  side,  128K  RAM,  and  a  63-key  keyboard,  is  a  smaller,  enhanced 
Apple  lie.  (All  photos  courtesy  of  Apple  Computer,  Inc.) 


Still,  for  most  people,  the 
important  question  is:  What  is 
Apple  offering  you  in  the  lie 
that  you  ean't  get  with  the  IBM, 
Commodore,  Atari,  Radio  Shack, 
and  other  Apple  computers? 

If  market  researchers  are 
correct,  the  number  of  personal 
computers  in  the  home  will  go 
up  from  eight  million  units  now 
to  about  50  million  by  1988. 
This  would  put  at  least  one 
computer  in  two  out  of  every 
three  U.S.  households  in  the 
next  four  years. 

Two  Steves  In  A  Garage 

To  see  how  Apple  plans  to  ex- 
ploit that  potential  market  with 
its  new  lie,  you  have  to  go  back 
to  1977.  Two  young  men,  Steve 
Jobs  and  Steve  Wozniak, 


emerged  from  their  garage 
workshop  with  the  Apple  II,  the 
first  fully  assembled  personal 
computer.  It  created  a  sensation, 
and  the  two  Steves  haven't 
looked  back  since.  The  Apple  II 
begat  the  Apple  II +  ,  which  be- 
gat the  Apple  III — a  business 
machine.  Then,  in  1983,  the 
company  introduced  the  Apple 
He  (the  e  stands  for  enhanced),  a 
64K  RAM  personal  computer 
which  continued  the  evolution 
of  the  Apple  II  line.  Almost  two 
million  computers  in  the  Apple 
11  family  have  been  sold. 

At  that  point  the  problems 
started.  Or  as  John  Sculley  puts 
it:  "The  Apple  He  was  a  very 
important  technical  improve- 
ment on  the  Apple  II +  ,  but  the 
real  difference  in  1983  was  that 


THERE'S  A  COMPUTER  BORN  EVERY  MNUTE... 

GIVE  IT  A  HOME. 


For  5o9.95  with  the  CS-1632  you  can  house  yout  computer, 
peripherals,  and  accessories  without  spending  a  fortune. 


for  those  with  a  large  computer  famUy  the  CS-2748  gives  you  all  the  room  you 
need  for  your  computer,  monitor,  printer,  peripherals,  software,  etc.  at  a  price 
that's  hard  to  believc:  £299.95. 


Ine  Ci-  IcjZ  computer  storage 
cabinets  compact  yet  functional 
design  fits  almost  anywhere 
while  housing  your  computer 
monitor,  joysticks,  software, 
books  and  pectpherals  aU  for 
oniy  S89.95. 

The  slide  out  shelf  puts  the 
computer  at  the  right  height  and 
position  for  easy  comfortable 
operation, 

The  fold  up  locking  door  keeps 
unwanted  fingers  oiTthe  key 
board  when  not  in  use. 
To  store  joysticks  just  turn  them 
upside  down  and  slide  them  inti> 
the  inverted  storage  rack. 
Twist  tabs  on  the  back  of  center 
panel  allow  for  neat  concealed 
grouping  of  wires,  while  power 
packs  rest  hidden  behind  center 
panel  on  shelf 
The  slide  out  software  tray 
has  room  for  S4  cartridges  or 
cassettes  and  up  to  30  diskettes. 
Most  brands  of  software  will  fit 
between  the  adjustable  parti- 
tions with  a  convenient  hook  for 
the  spare  key  at  rear 
Stand  fits  Atari  400  &  800, 
Commodore  64  &  VIC  20. 
Ti99/4AandTRS-80. 
Cabinet  dimensions  overall  36" 
high  X  33-7/8"  wide  x  16"  deep. 


r  CS-1632  send  S89.95  to:      To  order  CS-2748  send  $299.95  to: 


HVTEC 


SYSTEMS 


P.O.Box  446 

Wcit  LTBn.  OS  97068 

For  Fast  Phone  Orders  Call  ToU  Free  1.800-547-3100 
Inside  Oregon  CaU  <503)  635-6667 


Name 

Address  . 

City  

Quantify. 


.State 


.CS-1632 


Quanlity_ 


-Zip  , 


.CS-2748 


□  Golden  Oak  Finish  □  Natural  walnut  finish 

Q  My  personal  check,  cashiers  check  or  money  order  is  enclosed. 


n  Bill  my  VISA" 

D  Bill  my  MasterCard  *  , 

□  Please  include  freight  charge  on  my  VISA  or  MasterCard. 

Card  Holders  Signature  


_Exp.  Date 
.  Exp.  Date 


hvth: 

mssam 


immediate  stwpmtnt  if  i/i  SKOC^  If  not,  aliow  .l-'l  weclts  fordeUverv  Ifperacniil  checl*  isscnl  allow  jddjaonal 
2  wctks.  CS- 1632  stups  UPS  fteghl  <oMa  bom  Oregon.  CS-2748  ships  byfrock  rteighi  coUen  from  Oregon 
Prices  subjea  lochaiig*  Shipment  subject  lo  avaiiabilitY. 

Both  she  CS- 1632  and  CS-2748  ship  unassembled  in  two  canons,  ftsseinbly  rwjuiies  only  a  scicu/dnvcr. 

hammer,  and  a  few  rrvnuics  of  yotit  time 

Choice  in  simulased  woodgfam  of  warm  golden  oak  or  rich  ruiurat  walnut  firush 


The  two  slide-out  shelves  put 
the  keyboard  at  the  proper  oper- 
ating height  while  allowing  easy 
access  to  the  disk  drives. 
The  bronze  tempered  glass  door 
protecting  the  keyboard  and 
disk  drives  simpiy  lifts  up  and  v 
slides  back  out  of  the  way  during 
use. 

Twist  tabs  on  the  back  of  the 
center  panel  allow  for  neat  con- 
cealed grouping  of  wires  while 
a  convenient  storage  shelf  for 
books  or  other  items  lies  below. 
The  printer  sits  behind  a  fold 
down  door  that  provides  a  work 
surface  for  papers  or  books 
while  using  the  keyboard.  The 
\ih  up  top  allows  easy  access 
to  the  top  and  rear  of  the  printer. 
A  slot  in  the  printer  shelf  allows 
for  center  as  well  as  rear 
feed  printers. 
Behind  the  lower  door  are 
a  top  shelf  for  paper,  feeding  the 
printer,  and  a  bottom  shelf  to 
rccerve  printer  copy  as  well 
as  additional  storage. 
Stand  fits  same  computers 
as  the  CS-1632  as  well  as  She 
Apple  i  and  II,  IBM-PC,  FrankEn 
and  many  others. 
The  cabinet  dimensions  overall; 
39- 1/2"  high  X  49"  wide 
X  27"  deep. 

Keyboard  shelf  20"  deep  x  26" 
wide.  Disk  drive  shelf  15-34" 
deep  X  26"  wide.  Top  shelf  for 
monitor  17"  deep  x  27"  wide. 
Printer  shelf  22"  deep  x  19"  wide. 


The  lie  IS  about  the  size  of  a  notebook,  and  can  be  configured  xvith  optional  9-inch  monochromatic  monitor 
(as  shoivn  here)  and  with  a  variety  of  compatible  peripherals. 


for  the  first  time,  the  Apple  II 
faced  real  competition." 

Apple  found  itself  sand- 
wiched between  the  low  price  of 
the  Commodore  64  (and  several 
other  low-end  computers)  and 
the  IBM  PC,  which  quickly  es- 
tablished itself  as  a  high-end 
standard. 

"While  He  sales  continued 
to  grow,"  Sculley  said,  "Apple 
was  quickly  becoming  posi- 
tioned as  a  single-product  com- 
pany with  declining  importance 
in  business  and  in  the  home. 
That's  a  very  dangerous 
situation." 

The  First  1 00  Days  Of 
The  Macintosh 

But  what  a  difference  a  year 
makes.  With  the  introduction  of 
the  Macintosh  in  January  of  this 
year,  Apple  offered  a  revolu- 
tionary personal  computer 
aimed  primarily  at  the  business 
and  college  markets.  It  was  de- 
signed to  be  the  least  intimidat- 
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ing  and  easiest  to  use  computer 
on  the  market.  The  $2495  128K 
computer,  which  has  no  built-in 
programming  language  and  fea- 
tures a  mouse  input  device,  sold 
more  than  70,000  units  in  its 
first  100  days. 

By  contrast,  the  original 
Apple  II  took  272  years  to  sell 
50,000  units,  and  the  IBM  PC 
took  over  7%  months  to  sell  the 
same  number. 

Then,  this  April,  Apple  in- 
troduced the  lie  at  a  day-long 
exposition  in  San  Francisco.  The 
event  featured  a  high-tech 
sound  and  light  show,  dem- 
onstrations of  the  new  product, 
presentations  of  compatible  soft- 
ware from  a  variety  of  compa- 
nies, and  an  unplanned 
earthquake  that  rocked  the  city. 
Within  several  hours  that  day, 
Apple  took  more  than  50,000  lie 
orders  from  more  than  two 
thousand  retail  dealers.  Apple 
had  come  some  distance  from 
two  young  men  in  a  garage. 


Just  Another  Appliance 

Amidst  the  carnival  hoopla  of 
the  Ik's  debut,  Apple  officials 
restated  their  argument  that  the 
new  machine  is  an  evolutionary 
twist  in  the  Apple  II  line  and 
that  it  addresses  a  new  segment 
of  the  buying  public  with  a  dif- 
ferent concept  of  what  a  com- 
puter should  be. 

"We  should  not  be  judging 
how  convenient  the  Apple  lie  is 
versus  other  competitors,"  says 
Sculley,  "but  relative  to  other 
consumer  appliances  that  are 
used  by  people  who  have  never 
used  any  personal  computers 
before.  The  lie  was  designed 
from  the  start  to  demystify  the 
intimidation  that  personal  com- 
puters present  to  so  many 
people."  In  other  words,  as  with 
the  Macintosh,  Apple  is  trying 
to  make  the  Ik  as  easy  to  use  as 
a  toaster,  a  television,  or  a  ste- 
reo system.  And  the  company  is 
trying  to  do  that  in  the  same 
way  that  items  such  as  cars. 


BREAK! 


f-iSal; 


NA/ITH  NlGl-lTiVVlSSlOlSF 


JC  hfili^ 


You  deserve  the  best.  You've  earned  it.  Now  reward  yourself  with  a  session  of  Night  Mission  PiNBALL, 
the  most  realistic  and  challenging  arcade  simulation  ever  conceived!  ■  Stunning  graphics  and  dazzling 

^ -N   sound  effects  put  Night  Mission  PINBALL  in  a  class  by  itself.  Game  features:  multi- 

l  ball  and  multi-player  capabilities,  ten  different  professionally  designed  levels  of  play, 
,^ .      and  an  editor  that  lets  you  create  your  own  custom  modes.  ■  So  take  a  breaic  with 
° "  ;^   \         Night  Mission  PINBALL  from  SubLOGIC.  Winner  of  Electronic  Games  magazine's 
T      1983  Arcade  Award  for  Best  Computer  Audio/Visual  Effects. 

See  your  dealer . . .      ©[lJlio)LOGIC 


or  write  or  call  tor  more  intormalion.  For  direct  orders  please  add  $1 .50  for 
shipping  and  specify  UPS  or  first  class  mail  delivery.  Illinois  residents  add  5% 
sales  tax.  American  Express,  Diner's  Club,  MasterCard,  and  Visa  accepted. 

Order  Line:  800/637-4983 


Oorporation 

713  Edgebrooit  Drive 
Champaign  IL  61820 

(217)  359-8482  Telex:  206995 


cameras,  and  pocket  calculators 
have  evolved  into  mass  market 
products. 

Apple  estimates  that  about 
two-thirds  of  lie  sales  will  be  to 
the  home  market,  with  the  rest 
going  to  schools  and  small 
businesses. 

The  Snow  White  Look 

To  underscore  the  novelty  of 
the  lie,  Apple  has  altered  the 
physical  appearance  of  the  new 
machine  and  all  of  the  optional 
peripherals  that  are  made  for  it. 
The  new  look  is  called  "Snow 
White,"  and  it  features  an  ivory 
color,  rounded  corners,  and  a 
sleek,  narrow  case  with  a  fine- 
grained texture.  Frog  Design,  a 
West  German  firm  which  also 
designed  the  Sony  Walkman, 
created  the  new  casing  for  Apple. 
It  marks  the  biggest  exterior  de- 
sign change  in  the  Apple  II  line, 
and  will  be  the  look  of  all  future 
Apple  products. 

The  computer,  including 
the  keyboard,  internal  circuit 
board,  built-in  disk  drive,  and 
rear  panel  peripheral  ports, 
weighs  only  about  1%  pounds. 
A  recessed  handle  mounted  on 
the  top  rear  of  the  computer 
swings  out  for  carrying  and  also 
locks  in  place  in  order  to  posi- 
tion the  machine  at  a  correct 
typing  angle.  The  body  of  the 
computer  is  only  l}k  inches 
high,  12  inches  wide,  and  W-k 
inches  long — little  more  than 
the  size  of  a  notebook. 

To  emphasize  the  He's  sim- 
plicity, everything  a  user  needs 
to  get  started  comes  in  one  box, 
except  a  display  screen.  The  ab- 
sence of  a  monitor  with  the  new 
computer  will  allow  consumers 
to  choose  between  television, 
composite  monitor,  and  RGB 
(red-green-blue)  displays.  And, 
by  September,  a  new  flat  liquid 
crystal  display  will  be  available, 
says  Steve  Jobs,  Apple's  chair- 
man of  the  board.  It  also  keeps 
the  initial  price  lower  and  al- 
lows dealers  to  sell  the  com- 
puter in  a  variety  of 
configurations. 
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By  September,  Apple  promises  this  flat  LCD  screen,  which  fits  on  top  of  the 
main  Uc  unit  and  has  full  80-character  by  24-line  display. 


There  aren't  any  ROM  car- 
tridge slots  either.  Jobs  calls 
those  cartridges  clumsy,  and 
prefers  the  cheaper,  more  effec- 
tive, and  more  flexible  floppy 
disks. 

70  Fewer  Chips 

Internally,  the  lie  has  a  65C02 
central  processing  unit  (CPU) — 
an  eight-bit  microprocessor — 
which  Apple  says  is  an  en- 
hanced version  of  the  6502B 
CPU  used  by  the  Apple  He. 
Both  of  those  chips  are  based  on 
the  original  6502  manufactured 
by  MOS  Technology.  The  C  in 
65C02  is  taken  from  CMOS 
(Complimentary  Metal-Oxide 
Semiconductor),  which  desig- 
nates the  production  process  of 
the  chip.  The  new  version  re- 
portedly has  cooler  operation 
and  requires  less  power,  allow- 
ing the  lie  to  use  a  battery  pack 
that  is  to  be  available  later. 

The  65C02  chip  also  report- 
edly includes  27  new  program- 
ming instructions.  If  pro- 
grammers use  these  instructions 
in  their  lie  software  packages, 
those  programs  will  not  work 
on  earlier  Apple  II  models  with 
the  original  6502  or  6502B  chip. 
Upward  compatibility  from  the 


earlier  Apple  II  machines  to  the 
lie  is  not  a  problem,  however, 
Apple  says. 

There  are  only  40  chips 
within  the  He,  quite  a  reduction 
from  the  110  which  are  found  in 
the  He.  Apple  engineers  com- 
bined the  functions  of  some 
chips  onto  custom  large-scale 
integrated  chips  to  achieve  this. 
They  also  combined  functions; 
The  mouse  peripheral  port  on 
the  rear  of  the  unit,  for  example, 
can  accept  a  mouse,  joystick,  or 
hand  controllers.  Although  there 
are  fewer  chips,  the  machine 
has  double  the  usable  memory 
of  the  Apple  lie— 128K,  or  the 
equivalent  of  about  50  double- 
spaced  typed  pages  of  work 
area.  There  is  16K  of  ROM 
(Read  Only  Memory),  contain- 
ing among  other  things  the 
standard  Applesoft  BASIC  pro- 
gramming language. 

Ultrahigh  Resolution 

There  are  three  graphics  modes 
available  with  the  lie.  First,  a 
low-resolution  graphics  mode  of 
40  X  48  pixels  with  16  available 
colors  and,  second,  a  high- 
resolution  mode  of  280  x  192 
with  6  colors — both  of  which 
are  comparable  to  the  lie's 


Live  the  Fantasy  and  the  Adventure. 
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STRATEGIC  SIMULATIONS  INC.  PRESmmmmm^ASV  ADVENTURE  GAME:  QUESTRON 
ONE  OF  THE  FINEST  CHAPTERS  IN  THE  NEVER-ENDING  SAGA  OF  tHE  BATTLE  BETWEEN  GOOtJ^D  EVIL 
Starring  YOU  as  THE  HERO  •  MESRON.  THE  GOOD  WIZARD  •  MANTOR.  THE  EVIL  SORCEROR 
AND  HIS  HORDES  OF  HERO-CRUNCHING  MONSTERS    •    Written  and  directed  by  CHARLES  DOUGHJ 


On  48K  disk  for  your  Apple'"'  1!  with  Apple- 
soft ROM  card.  Apple  N+,  lie,  or  Apple  III. 
Also  for  Atari'"'  home  computers. 
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THIS  GAME  RATED  POSITIVELY  GREAT. 


Ideal  for  Fantasy  Adventurers  of  all  ages. 


STRATEGIC  SIMULATIONS  irHC 


If  there  are  no  convenient  stores  nearyoii,  VISAS  Mastercard  holders 
can  order  direct  by  calling  800-227-1617.  ext  335  (toll  free).  In  Califor- 
nia, call  800-772-3545,  ext  335.  QUESTRON "  goes  for$49.95.  plus  $2.00 
for  shipping  and  handling. 


To  order  by  mail,  send  your  check  to:  STRATEGIC  SIMULATIONS  INC. 
883  Stierlin  Road.  BIdg.  A  ZOO.  Mountain  View.  CA  94043.  {California 
residents,  please  add  6.5%  sales  tax.)  All  our  games carry  a "  14-day  satis- 
faction or  your  money  back"  guarantee. 


WRITE  FOR  A  FREE  COLOR  CATALOG  OF  ALL  OUR  GAMES. 


Mouse,  joystick, 
hand  controllers 


Modem 


Television,  RGB 
color  monitor, 
flat-panel  display 
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External  disk 
drive 


Printer, 
Plotter 


Power 
supply 


On/off 
switch 


The  peripheral  ports  on  the  rear  of  the  main  panel  are  virtualli/  foolproof  for  installation,  and  feature  icons  above 
each  socket  to  show  the  user  the  various  uses. 


graphics  modes.  The  lie  also  has 
an  ultrahigh-resolution  mono- 
chromatic mode  of  560  x  192, 
which  approaches  but  does  not 
match  the  Macintosh's  512  x 
342  pixel  monochrome  display. 
Apple  says  that  in  the  future  the 
ultrahigh-resolution  mode  will 
be  able  to  support  16-color 
graphics. 

The  lie  also  has  an  internal 
speaker  almost  identical  to  that 
in  the  He.  It  allows  five  octaves 
of  sound.  The  lie  has  a  volume 
control  button  on  the  side  of  the 
case,  which  the  He  does  not. 
And  there  is  a  plug  for  head- 
phones in  the  new  machine, 
next  to  the  volume  control 
button. 

The  keyboard  on  the  lie 
represents  a  departure  from  the 
He,  although  the  basic  layout 
and  size  are  virtually  identical. 
There  are  63  sculpted  keys,  but 
rather  than  the  smooth  up  and 
down  action  of  the  He,  the  Ik's 
keys  have  a  breakover  effect — a 
definite  toggle — that  gives  a  tac- 
tile sense  when  a  key  has  been 
hit  as  well  as  an  audible  click. 
The  effect  is  not  unlike  the  key- 
board action  on  the  IBM  PC,  al- 
though the  breakover  action  on 
the  lie  is  not  as  pronounced. 
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Spillproof 

Above  the  keyboard,  starting  on 
the  left,  are  three  partially  re- 
cessed switches:  a  rectangular 
reset  button,  which  on  the  lie  is 
to  be  found  on  the  right  side  of 
the  keyboard;  a  button  that 
changes  the  video  display  from 
40  to  80  columns  (or  vice  versa) 
for  text;  and  another  button 
which  will  alter  the  keyboard 
from  the  standard  QWERTY  key 
configuration  found  on  most 
typewriters  to  a  DVORAK  key- 
board. The  DVORAK  keyboard, 
which  has  a  faster  and  more 
logical  key  layout  than 
QWERTY,  is  growing  in  popu- 
larity. Apple  will  also  have  re- 
placement key  caps  for  those 
who  wish  to  install  them  in  the 
DVORAK  layout. 

An  Apple  spokesperson 
says  that  six  different  keyboard 
prototypes  were  tested  for  the 
lie,  and  that  on  the  recommen- 
dations of  touch  typists  who 
tested  the  various  keyboards, 
the  present  style  was  adopted. 

Another  interesting  key- 
board feature  is  a  layer  of  plas- 
tic beneath  the  keys,  which  will 
prevent  any  spilled  liquids  from 
penetrating  into  the  computer  it- 
self. At  typing  angle,  liquids  will 


drain  toward  air  vents  at  the 
front  of  the  machine.  An  Apple 
spokesperson  called  this  the 
"drool"  cover. 

Foolproof  Peripheral 
Ports 

Built  into  the  right  side  of  the 
main  unit  is  a  low-profile  SVi- 
inch  disk  drive,  which  has  a 
140K  capacity.  A  total  of  137K 
of  that  is  available  with  ProDOS 
(a  Disk  Operating  System)  and 
with  Pascal  DOS.  124K  of  RAM 
is  available  with  DOS  3.3. 

The  system  uses  a  12-volt 
detachable  power  supply,  which 
will  allow  an  unmodified  lie  to 
run  off  a  car's  cigarette  lighter,  a 
battery  pack,  or  international 
electrical  outputs.  This  power 
supply,  in  the  same  Snow  White 
style,  is  packaged  in  the  lie  box 
along  with  the  main  unit,  cables, 
RF  modulator  for  TV  hookup, 
and  a  disk-based  owner's 
manual/computer  literacy  course 
aimed  at  the  first-time  user. 

But  one  of  the  He's  most  at- 
tractive features  for  consumers 
new  to  computers  could  well  be 
its  back  panel  of  peripheral 
ports.  This  also  represents  a  ma- 
jor departure  from  the  He.  In- 
stead of  the  add-on  card  slots 


BROTHER  HR15 

Costs  about 
the  same — 
but  it's 
slower, 
noisier,  and 
needs  its  own 
brand  of 
ribbon.  To 
be  fair,  it's 
lighter,*  (But 
JUKI  eclipses 
the 

BROTHER 
totally!) 


SILVER  REED 
EXP500 

Okay,  it's 
lighter — but 
it's  more  than 
a  whole  word 
slower  per 
second,  it's 
noisier, 
lacks  a  buffer 
memory,  and 
prints  only  a 
10"-wideline.* 
QUKI 
triumphs 
again!) 


SILVER  REED 
EXP550 

You  pay  about 
$100  more, 
and  it's 
slower, 
noisier,  has 
no  buffer 
memory,  and 
lacks  the 
refinement 
of  our  linear 
stepper 
carriage 
motor,  A  little 
wider  print 
line,  yes.  A 
bargain,  no.* 
QUKI  by  a 
mile.) 


QUME  LP20 

Costs  about 
$300  more, 
needs  its  own 
brand  of 
ribbon,  and 
takes  only  a 
96-character 
wheel.  Is  it 
worth  it  for 
just  2  more 
characters 
per  second 
and  a  wee 
bit  quieter 
machine?* 
(Sorry, 

QUME,  JUKI 
gets  the 
trophy, ) 


DIABLO  620 

Costs  about 
twice  as 
much,  weighs 
19  lbs.  more, 
and  requires 
its  own  brand 
of  ribbon. 
Pretty  steep 
for  a  slightly 
quieter 
machine  and 
2  more 
characters 
per  second.  * 
(The  ^vinner: 
JUKI.) 
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CONSIDER  THESE  FEATURES: 

Compatible  with  most 
personal  computers  (IBM, 
Apple,  KajTiro,  etc.),  prints 
graphics,  2K  buffer 
(expandable  to  8K), 
bidirectional  tractor  feed 
option,  proportional  spacing, 
lightweight,  11"  print  line, 
uses  100-character  drop-in 
daisy  wheel  and  inexpensive, 
easy-to-fmd  IBM  Selectric 
II®  ribbon!  Interchangeable 
interface  and  easy-to-read 
manual.  Feature  for 
feature,  dollar  for  dollar, 
JUKI— the  best  all-round 
letter-quality  printer 
anywhere! 

THERE  ARE  LOTS 
OF  DAISYVTHEEL 
PRINTERS  IN  THE 
FIELD.  PICK  SMART. 
PICK  JUKI  6100. 


-=*-^ 


•Comparison  based  upoo  manufacturer's  specifications 
nilher  than  aclmi  testing. 


JUKI  INDUSTRIES  OF  AMERICA,  INC. 
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COMPUTE.i's  Reference 
Guide  To 
Commodore  64 
Graphics 

A  complete  tutorial  on 
Commodore  64  graphics. 
Noted  Commodore  author 
John  Hellborn  explains 
how  to  program  sprites, 
multicolored  screens,  ani- 
mation, custom  characters, 
and  more.  Beginners  will 
like  the  step-by-step  in- 
structions and  clear  ex- 
ample programs.  Advanced 
programmers  can  build  up 

their  tool  kit  with  the  character  editors,  sprite  editors,  screen 

design  program,  and  other  useful  utilities. 

218  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISBrJ  0-942386-29-9 


VIC 
GAMES 

N«FOR  KIDS- 
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VIC  Games  For  Kids 

Contains  30  games  written 
just  for  kids  (although  adults 
will  enjoy  them  tooj.  This 
book  is  an  inexpensive 
source  of  educational  soft- 
ware for  children.  The 
games  are  designed  to 
teach  math,  geography, 
history,  and  other  topics. 
Children  learn  while  they're 
having  fun.  They  will  return 
to  these  games  again  and 
again. 


240  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISBN  0-942386-3S-3 


COMPUTE!'! 

SECOND 

^QQt/  COMPUTE.I'S  Second 

^  ^         °^  Commodore  64 

CO 

Continues  in  the  tradition 
of  the  best-selling  First 
Book  of  Commodore  64  in 
presenting  quality  pro- 
grams and  articles,  many 
revised  or  never  before 
published.  There's  some- 
thing for  almost  any  64 
user;  arcade  and  text  ad- 
venture games,  an  impres- 
sive word  processor,  a 
program  which  adds  4 1 
new  BASIC  commands,  an 
electronic  spreadsheet,  sound  and  graphics  tutorials,  and 
information  on  saving,  copying,  and  retrieving  files. 

288  pages,  paperback- 
Spiral  bound  for  easy  access  to  programs. 

$T2.9S 

ISBN  0-942386-44-2 
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COMPUTE  !'s  First 
Book  Of 
Commodore  64 

An  excellent  resource  for 
users  of  the  64,  with  some- 
thing for  everyone:  BASIC 
programming  techniques, 
a  memory  map,  a  machine 
language  monitor,  and 
information  about  writing 
games  and  using  peripher- 
als. Many  ready-to-type-ln 
programs  and  games. 


264  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISBN  0-942386-20-5 
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COMPUTERS  First 
Book  Of 
Commodore  64  Games 

Packed  full  of  games: 
"Snake  Escape,"  "Oil  Ty- 
coon," "Laser  Gunner," 
"Zuider  Zee, "  and  many 
more.  Machine  language 
games  requiring  fast  fiands 
and  a  good  eye,  as  well  as 
strategy  games  which  will 
exercise  your  mind.  Intro- 
ductory chapters  and  an- 
.  fe-  notated  listings  provide 

'B L... -„_.,_ :._^_-.^^^-,,-,-„.-^  ■  ideas  and  techniques  for 

"'  writing  games.  An  excellent 

introduction  for  64  owners  who  want  to  begin  writing  games. 

2 1 7  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

SI  2.95 

tSBN  0-942386-34-5 


COMPUTE !'s  First 
Book  Of  Tl  Games 

Although  this  book  is 
packed  with  ready-to-type- 
in  games  (29  in  all),  it  is 
more  than  just  a  book  of 
games.  It  is  designed  to 
teach  game  programming 
techniques,  introductory 
chapters  explain  the  special 
features  of  the  TI-99/4  and 
99/4A,  giving  advice  on 
coding  techniques.  Most 
games  include  an  explana- 

,^_,-.^„  „^-.-„^..„=  -_..,.-,.-,- ;.-- ''Oi^  of  how  the  program 

works.  Contains  mazes, 
chase  games,  old  favorites,  thinking  games,  creative  chal- 
lenges, and  more, 

211  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISSN  0-942386- 1 7-S 


VIC 
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CChtWHs  5»«na  Book  a  VC 
Apcioottyft  utlAM  gonn 
oiCttntiHtHttHamMin 
Is  i«sc«  no  Victor 
home  CQfTpufei 


COMPUTE  I's  Second 
Book  Of  VIC 

This  is  just  the  book  to 
follow  the  best-selling  First 
Book  of  VIC.  clear  explana- 
tions of  programming 
techniques,  an  extensive 
memory  map,  a  mini  word 
processor,  a  system  for 
creating  sound  effects,  a 
custom  character  maker,  a 
machine  language  assem- 
bler, and  "Gumbali,"an 
extraordinary  all-machine- 
language  game. 


274  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISBN  0-942386-16-7 


COMPUTERS  FIRST  BOOK  OF 
i^COMMOOOREi 


SOUND 

AND 
RAPHICS 


COMPUTE  Is  First 
Book  Of  64  Sound 
And  Graphics 

Clear  explanations  of  the 
64's  sound  and  graphics 
capabilities.  Includes  many 
tutorials  and  example  pro- 
grams; "MusicMaster,"  a 
complete  music  synthe- 
sizer; "High-Resolution 
Sketchpad,"  an  all- 
machine-language  pro- 
gram for  making  computer 
art;  and  "Ultrafont  Character 
Editor,"  one  of  the  best 
character  editors  available. 
The  appendices  feature 
useful  reference  charts  and  conversion  tables. 

275  pages,  paperback. 

Spiral  bound  for  easy  access  to  programs. 

$12.95 

ISBN  0-942386-21-3 


COMPUTEr  Publicationsjnc.® 

One  of  the  ABC  Publishing  Companies  ^^^r 

Post  Office  Box  5406.  Greensboro,  North  Carolina  27403 


The  Apple  Ik,  with  optional  9-inch  monitor,  Scribe  thermal  transfer  printer,  AppleMouse  U,  external  disk  drive, 
joystick,  modem,  and  carrying  case. 


found  on  the  back  of  the  He,  the 

new  computer  has  a  row  of 
piug-in  sockets  which  can 
simultaneously  support  a  dis- 
play screen,  printer,  modem, 
mouse  pointer,  joystick,  and  a 
second  disk  drive.  And  each 
socket  is  configured  so  that  only 
the  correct  connector  can  be 
plugged  into  it,  thus  preventing 
a  beginner  from  making  a  major 
error  during  setup.  Each  of  the 
sockets,  including  two  high- 
speed serial  ports,  is  identified 
by  a  picture  on  the  case. 

Also,  Apple  computers  have 
traditionally  been  hobbyists' 
and  hackers'  playgrounds,  easily 
opened  and  modified.  Not  so 
with  the  lie.  The  main  unit  is 
sealed,  representing  Apple's 
philosophy  that  this  computer  is 
for  all  of  those  who  don't  want 
to  have  to  learn  about  expan- 
sion cards,  complex  interfaces, 
and  the  like. 

Flat  LCD  Display 

The  lie  is  expandable,  with  a 
variety  of  optional  accessories. 
The  Scribe  printer  ($299),  for 
example,  is  a  13-pound  thermal 
transfer  printer  that  uses  regular 
paper,  prints  text  and  graphics 
in  six  colors  plus  black,  and  has 
a  low-resolution  speed  of  80 
characters  per  second  and  a 
near-letter-quality  speed  of  50 
characters  per  second. 

Other  accessories  include 
an  11 -pound  Apple  Monitor  lie 
($199)  with  a  nine-inch  green 
phosphor  display  (a  handle  is 
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also  included  for  the  monitor); 
the  AppleMouse  lie  ($99),  simi- 
lar to  the  mouse  used  with  the 
Macintosh  and  Lisa  2  computers 
(requires  no  add-on  card);  an  ex- 
ternal 5V4-inch  disk  drive  ($329) 
with  140K  capacity;  a  lie  moni- 
tor stand  ($39);  and  a  carrying 
case  ($39)  with  room  for  the 
power  pack  and  the  mouse. 

By  September,  Apple  prom- 
ises to  have  a  flat  liquid  crystal 
display  (LCD)  screen  for  the  lie 
that  will  fit  onto  the  top  of  the 
machine  and  make  the  lie  even 
more  portable.  Priced  at  about 
$600,  the  LCD  screen  will  hold 
as  much  information  as  a  regu- 
lar monitor — 80  characters  wide 
by  24  lines  long.  Prototypes  of 
the  new  screen  were  being  dem- 
onstrated at  the  introduction  of 
the  lie  in  San  Francisco,  Al- 
though the  screen  image  was  in- 
ferior to  the  9-inch  monitors  in 
both  luminance  and  ease  of  use, 
there's  little  doubt  that  the  flat 
screen  will  be  a  popular  option 
when  available. 

In  addition,  several  Apple 
Il-family  peripherals  will  run  on 
the  He  including  the  Image- 
writer  dot-matrix  printer  ($595), 
both  the  300-baud  ($225)  and 
1200-baud  ($495)  modems,  the 
Apple  joystick  ($59.95),  hand 
controllers  ($34.95),  and  color 
plotter  ($779). 

Thousands  Of  Programs 
For  The  Home 

If  Apple  considers  its  hardware 
improvements  the  key  to  break- 


ing down  buyer  resistance 
among  noncomputer  users,  it's 
counting  on  the  thousands  of 
compatible  software  programs 
available  for  the  lie  to  help 
bring  the  computer  home. 

According  to  Apple,  more 
than  10,000  programs  have 
been  written  for  the  Apple  II 
over  the  past  seven  years  and 
more  than  90  percent  of  the 
programs  still  available  will  run 
on  the  lie.  That  is  a  wealth  of 
business,  educational,  home 
productivity,  and  entertainment 
software  that  not  even  IBM  can 
come  close  to  offering. 

Any  existing  Apple  II  soft- 
ware that  might  not  be  compat- 
ible would  result  fiom  a 
software  manufacturer's  use  of  a 
copy  protection  mechanism  or 
reserved  memory  locations  not 
recommended  by  Apple. 

To  drive  home  the  point  of 
software  availability,  Apple  has 
been  working  with  more  than 
100  software  companies  to 
make  sure  there  are  plenty  of 
new  programs  designed  to  take 
advantage  of  the  He's  larger 
memory,  ultrahigh  resolution, 
and  built-in  mouse  technology. 

AppleWorks  For  The  He 

Apple  also  introduced  four  of  its 
own  programs  for  the  lie: 
AppleWorks,  an  integrated  word 
processing,  spreadsheet  analysis, 
and  data  base  management 
package;  Apple  Access  U,  telecom- 
munications software;  Apple  Logo 
II,  a  graphics-oriented  program- 
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Ken  Uston  doesn't  think  you  can  solve  his 
computer  puzzle,  "PUZZLEPANIC."  But  if  you  can, 
you'll  have  a  chance  to  be  his  guest,  all  expenses 
paid,  for  a  weekend  in  Atlantic  City.  If  you're  over  21 
years  old,  Ken  will  show  you  the  ins  and  outs  of 
blackjack  at  Resorts  International's  fabulous  casino. 
If  you're  under  21  years  of  age,  Ken  will  take  you 
on  in  the  hotel's  tremendous  and  well-equipped 
arcade,  challenging  you  to  every  game  in  the  place. 
Either  way  you  can't  lose.  Conquer  "PUZZLEPANIC" 
and  take  on  the  world  famous  Ken  Uston  in  the 
bargain,  but  hurry,  contest  ends  August  31, 1984. 


Here's  what  you  have  to  do:  Solve  each  puzzle, 
figure  out  which  symbol  will  correctly  take  you  to 
the  next  puzzle  (over  40  puzzles  in  all)  then,  use  these 
symbols  to  find  the  solution  to  the  Grand  Puzzle. 
Ken  will  pick  a  winner  from  a  drawing  of  all  correct 
entries. 

To  enter,  send  your  symbol  chart  listing  the 
correct  symbol  for  each  puzzle,  along  with  your  name, 
address  and  telephone  number  to:  PUZZLEPANIC 
CONTEST,  c/o  EPYX,  Inc.,  1043  Kiel  Court, 
Sunnyvale,  CA  94089. 


StfeitegY  Games  nir  the  Action-Game  Player 


CONDITIONS:  All  entries  must  be  postmarked  by  August  31, 1984.  Incomplete  entries  will  not  be  considered.  Winner  will  be  selected  from  a 
random  drawing  of  all  correct  entries  to  be  held  on  or  before  September  30, 1984.  Winner  will  be  notified  by  mail  within  30  days  of  drawing. 
Contest  void  where  prohibited  by  law.  Contest  restricted  to  Continental  United  States. 


ming  language;  and  The  Apple 
Education  Classics,  two  popular 
educational  packages — Elemen- 
tary, My  Dear  Apple  and  The 
Shell  Games. 

The  21  third-party  pro- 
grams featured  by  Apple  at  the 
introduction  of  the  lie  included 
such  packages  as  Bank  Street 
Writer  by  Br0derbund,  Inc.;  Fi- 
nancial Cookbook  by  Electronic 
Arts;  Dollars  and  Sense  by 
Monogram/Tronix  Publishing, 
Inc.;  Crypto  Cube  by  Design- 
Ware,  Inc.;  Fact  and  Fiction 
Toolkit  by  Scholastic  Wizware; 
Mastering  the  SAT  by  CBS  Soft- 
ware, Inc.;  MasterType  by  Scar- 
borough Systems;  Rocky's  Boots 
by  The  Learning  Company;  and 
Sfickybear  Shapes  by  Xerox  Edu- 
cation Publications,  among  others. 

Since  something  like  70 
percent  of  the  computers  in 
schools  today  are  Apple  II's  and 
He's,  the  company  believes 
many  parents  will  opt  for  the  lie 
because  their  children  are  famil- 
iar with  those  machines, 

lie  Or  lie? 

Apple  dealers  are  less  certain 
about  the  impact  that  the  lie 
will  have  on  sales  of  the  He. 
Concurrent  with  the  announce- 
ment of  the  new  computer,  Ap- 
ple cut  the  price  of  a  lie  almost 
in  half,  down  to  $995.  That,  ac- 
cording to  Apple's  Sculley, 
means  that  the  lie  can  be 
viewed  as  a  thousand-dollar  en- 
try machine  with  exceptional 
expandability.  Admitting  that 
the  two  machines  have  a  some- 
what overlapping  target  market, 
Apple  nonetheless  expects  the 
He  to  continue  to  have  sales  in 
educational  (with  even  deeper 
discounts),  business,  and  home 
markets.  'Tie  or  lie.  That  is  the 
question"  is  the  advertising 
phrase  Apple  has  adopted  as  it 
attempts  to  sell — and  point  out 
the  differences  between — the 
two  computers. 

With  two  very  different 
product  lines — the  Apple  II  fam- 
ily and  the  Lisa/Macintosh  fam- 
ily— Apple  is  most  obviously 
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squared  off  against  both  the 
IBM  PC  and  the  PCjr.  Ads  for 
the  lie  criticize  the  PCjr's  lim- 
ited software  and  its  chiclet- 
style  keyboard.  As  this  is 
written,  IBM  has  already  an- 
nounced to  its  stockholders  that 
changes  will  be  made  in  the 
PCjr,  although  no  specifics  were 
given.  While  IBM  is  not  about  to 
step  away  from  any  of  its  ma- 
chines, Apple's  giant  archrival  is 
scrambling  to  meet  this  sur- 
prising double  onslaught  from 
Apple. 

In  price  and  features,  the 
$1295  lie  is  closer  to  the  Ex- 
panded Model  ($1269)  PCjr 
than  the  PC.  The  PCjr,  like  the 
lie,  has  128K  (a  64K  plug-in 
board);  switchable  40/80-column 
video  capability;  and  a  built-in 
5V4-inch  disk  drive.  However, 
the  lie  is  packaged  with  an  RF 
modulator  for  television  hookup; 
you  must  buy  a  $30  RF  modula- 
tor for  the  PCjr  as  well  as 
cables.  The  PCjr  operates  with 
DOS  2.1,  which  costs  another  $65 

Aging  Technology 

By  choosing  to  use  a  "c"  in  the 
new  computer's  name,  Apple 
has  been  able  to  offer  its  mar- 
keting team  a  lot  to  play  with: 
compact,  convenient,  complete, 
and  comprehensible.  The  com- 
pany's advertising  is  reflecting 
all  of  these  concepts  in  an  at- 
tempt to  market  the  lie  as  the 
first  serious  people's  computer. 

Many  people  were  ready  to 
write  off  Apple  in  1983,  calling 
the  Apple  II  line  an  example  of 
overpriced,  aging  technology. 
But  with  the  lie,  Apple  is  bet- 
ting that  it  will  shake  off  that 
label — confounding  the  com- 
pany's critics,  battling  IBM  suc- 
cessfully on  two  fronts,  and 
living  up  to  the  "Apple  II  For- 
ever" slogan  it  adopted  for  the 
He's  introduction, 

Hopes  have  never  been 
higher  at  Apple,  nor  the  stakes 
more  important.  But,  as  John 
Sculley  says,  "If  we're  right,  and 
we  think  we  are,  Silicon  Valley 
will  never  be  the  same  again."© 


Enter  CompuServe's 
Electronic  Mali" 
and  shop  at  your 
convenience  in  diese 
exciting  departments. 

The  Micro  Mart 
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The  Travel  Agent 
The  Book  Bazaar 
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The  Software  Shop 
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Innovative  Software 
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Max  Ule 

McGraw-Hill 
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Microsoft 
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Pan  American  Electronics 

Peachtree  Software 

Practical  Peripherals 

Program  Store 

Professional  Color  Labs 

RCA  Record  Clubs 

Record  World 

Sears 

Select  Information  Elxchange 

Sim  Computer  Products 

Simon  and  Schuster 

Small  Computer  Book  Club 

Software  Advisor 

Stork  Brothers 

Supersoft 

Vanguard 

VisiCorp 

Waldenbooks 

Woman's  Day  Books 

Ziff-Davis 

Merchants  and  manufacturers  vrtio  want 
to  participate  in  the  Electronic  Mall ' 
may  contact:  Stephen  A.  Swanson, 
L.M,  Berry  &  Co.,  P.O.  Box  6000, 
Dayton,  OH  45401.  (513)  296-2015. 
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>  by  the\ear200athe  world 
may  cm:h  up  with  the  way 
CompuServe's  new  Electronic  Mall 

i  LETS  You  Shop  T9DAY 


Introducing  the 
first  computer  shopping 
service  that  brings  you 
convenience,  savings 
and  enjoyment 

Here's  your  chance  to  expand  the 
practical  uses  of  your  personal  computer. 

Sign  up  for  CompuServe  and  shop  in 
our  new  Electronic  MalL  It's  easy  to  use  It 
tells  you  more  about  the  products  you're 
buying.  It  lets  you  order  faster.  And  it's 
totally  unique 

CompuServe's  new  Electronic  Mall" 
offers  you  £ill  these  shopping 
innovations. 

-  It's  enomious!  So  it  gives  you  in-depth 
information  on  thousands  of  goods  and 
services,  and  lets  you  buy  even  hard-to-find 
merchandise  -  Its  unique  "Feedback"  sen^- 
ice  lets  you  ask  the  merchants  themselves 
specific  questions.  -  It's  incredibly  efficient  in 
ordering  the  products  and  services  you  want 


-  Its  special  discount  opportunities  make  it 

economical  purchase  after  purchase  -  And 
its  name-brand  merchants  assure  you  of 
top-quality  merchandise 


Make  the  CompuServe  Electronic 
Mall  1 5-Mtnute  Comparison  Test 

What  you  can  do  in  15  minutes  shopping 
the  Electronic  Mall  way. 

•  Call  up  on  your  computer  screen  full 
descriptions  of  the  latest  in  computer 
printers,  for  instance. 

•  Pick  one  and  enter  the  order  command 

•  Check  complete  descriptions  of  places  to 
stay  on  your  next  vacation. 

•  Pick  sev'eral  and  request  travel  brochures. 

•  Access  a  departmentstore  catalog  and 
pick  out  a  wine  rack  tools,  toys. . .  any 
thing! 

•  Place  your  order. 

What  you  can  do  in  15  minutes  shopping 
the  old  way. 

•  Round  up  the  family  and  get  in  the  car 


The  Electronic  Mail,  a  valuable 
addition  to  the  vast  world  of 
CompuServe 

CompuServe's  Consumer  Information 
Service  brings  you  shopping  information, 
entertainment,  personal  communications 
and  more. 

You  can  access  CompuServe  vflth  al- 
most any  computer  and  modem,  terminal 
or  communicating  word  processor. 

To  receive  your  illustrated  guide  to 
CompuServe  and  learn  how  to  subscribe, 
call  or  contact... 


CompuServe 

Consumer  information  Service 
P.O.  Box  20212 
5000  Arlington  Centre  Blvd. 
Columbus.  OH  43220 

800-848-8199 

In  Ohio  call  614-457-0802 


The  Eleclronic  Mail'  is  a  cooperative  venture  between  CompuServe  liii-.  jntl  L.M.  Berry  &  Company. 


An  K  &  R  Block  Company 


I 


How  To  Choose 


Have  you  ever  sat  near  the  ref- 
erence desk  of  a  public  library 
and  watched  people  do  re- 
search? There's  usually  one 
scholarly  looking  gentleman 
with  eyeglasses  perched  atop 
his  head,  a  chewed-down  pencil 
stub  behind  one  ear,  and  crum- 
pled yellow  reference  slips  fall- 
ing from  his  pockets  as  he  looks 
in  the  card  catalog. 

Evolving  Methods  Of 
Research 

As  the  computer  begins  to  offer 
new  ways  to  sift  information, 
however,  the  techniques  of 
these  scholarly  gentlemen  may 
eventually  become  a  thing  of 
the  past. 

Doubtless,  computer  termi- 
nals with  improving  search  soft- 
ware will  continue  to  proliferate 
in  public  libraries,  airports,  de- 
partment stores — anywhere 
information  needs  to  be 
processed. 

Our  awareness  of  these 
data  bases  is  focused  on  the 
data  itself,  not  on  the  software 
necessary  to  store  and  search  for 
it.  Once  we've  learned  how  to 
use  a  particular  data  base,  we 
tend  to  forget  about  the  middle- 
man, the  data  base  software. 

But  if  you're  thinking  of 
changing  the  way  you  file  per- 
sonal information  by  setting  up 
a  data  base  on  your  home  com- 
puter, you  may  want  to  consider 
what  kind  of  software  will  best 
suit  your  needs. 

Searchware? 

There  is  some  confusion  about 
what  the  term  data  base  actually 
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A 

Home 

Data 

Program 


Kathy  Yakal 
Editoriol  Assistant 


Whether  or  not  you  realize  it, 
you've  probably  created  and  used 
data  bases  hundreds  of  times:  ev- 
ery time  you  filled  out  a  form  for 
a  doctor  or  employer  or  bank,  or 
bought  a  nexo  address  book.  Data 
base  software  for  personal  com- 
puters can  make  the  creation, 
maintenance,  and  access  of  data 
files — information  processing — far 
more  efficient. 


refers  to.  It  is  often  used  inter- 
changeably to  mean  both  the 
software  used  to  store  the  data 
and  the  data  itself. 

Technically,  data  base 
means  the  information  itself.  A 
data  base  manager  (a  computer 
program)  controls  and  processes 
that  data.  It's  the  manager  that 
you  can  buy,  and  that's  what 


we'll  be  discussing  here,  The 
data  base  is  something  you  en- 
ter yourself — a  list  of  your  li- 
brary books,  for  example. 

Impulse  buying  is  rare 
among  software  shoppers.  Un- 
less there's  a  two-for-$5  bin,  the 
consumer  is  usually  very  cau- 
tious, finding  out  as  much  as 
possible  about  the  software 
before  a  purchase. 

It's  especially  important  to 
determine  your  needs  prior  to 
purchasing  a  data  base  manager, 
"Maybe  that  seems  too  obvi- 
ous," says  Steve  Bellinghausen, 
"but  a  lot  of  people  don't  do 
that." 

Bellinghausen  is  distribu- 
tion manager  for  Professional 
Software,  Inc.,  publisher  of 
DataPlus-PC,  a  recently  released 
data  base  manager  for  the 
IBM-PC. 

A  Consumer's 
Quandary 

How  do  consumers  go  about 
matching  their  needs  with  an 
appropriate  data  base  program? 
In  the  past,  retailers  have 
helped.  "Hardware  and  software 
dealers  traditionally  have  per- 
formed some  kind  of  consulting 
role  to  end  users,"  says 
Bellinghausen.  "As  new  prod- 
ucts and  companies  flood  the 
market,  that's  becoming  increas- 
ingly difficult  to  do." 

Bellinghausen  describes  a 
scenario  where  the  unprepared 
consumer  walks  into  a  computer 
dealership  and  says  he  needs  a 
data  base  manager.  The  dealer 
points  to  a  flashy  display  and 
tells  the  customer  that  it's  the 


best-selling  data  base  on  the 
market. 

So  he  buys  it,  only  to  find 
out  that  the  program  does  far 
more  than  he'll  ever  need  from 
it,  and  he's  probably  wasted  a 
few  hundred  dollars.  "You  don't 
need  a  sledgehammer  to  drive  a 
thumbtack,"  says  Bellinghausen. 
"Or  vice  versa.  You  don't  want 
to  go  the  other  way,  either." 

Though  it  may  be  easy  to 
end  up  buying  data  base  soft- 
ware that  does  more  than  the 
consumer  needs  or  not  enough, 
Bellinghausen  thinks  that  asking 
yourself  and  the  retailer  a  few 
simple  questions  can  prevent 
that.  "The  consumer  should  be 
sharp  enough  to  figure  out  what 
he  wants  to  do  with  it,"  he  says. 

Let's  look  at  some  of  those 
questions. 

An  Electronic  Filing 
Cabinet 

How  many  different  files  do 
you  anticipate  creating?  If  you're 
buying  a  data  base  manager  for 
one  use  only,  like  cataloging  a 
stamp  collection,  this  isn't  im- 
portant. But  some  data  base 
managers  allow  you  to  store 
only  one  file  on  a  disk.  So  if 
you  have  several  small  files,  you 
may  be  wasting  disk  space  if 
you  buy  a  program  with  that 
restriction. 

How  large  do  you  expect 
your  files  to  be?  With  even  the 
most  limited  data  base  manager, 
you  can  always  create  new  files 
if  you  run  out  of  space.  But  if 
you  have  to  do  any  kind  of 
search,  you  may  not  be  able  to 
merge  your  files  and  run  a 
search  on  the  complete  file.  Try 
to  estimate  your  storage  needs 
generously. 

What  provisions  does  the 
data  base  manager  make  for  de- 
fining the  individual  fields  (sub- 
sections) within  each  record? 
Most  programs  allow  you  to  de- 
sign the  format  for  each  record, 
to  designate  how  many  fields 
per  record,  how  many  charac- 
ters per  field,  whether  letters 
only  or  numbers  only  or  both 


will  be  allowed,  and  so  on. 
Though  each  data  base  manager 
has  its  limits,  a  few  packages 
are  extremely  limiting. 

Will  you  be  needing  com- 
plicated sorts  and  searches? 
Most  home  applications  don't 
require  anything  very  intricate. 
But  if  you  want  to  do  more 
than,  say,  alphabetize,  or  re- 
trieve by  city  or  state,  you'll 
need  a  more  powerful  data  base 
manager. 

How  about  printing  reports? 
You  probably  want  some  kind 
of  printer  capabilities,  which  all 
data  base  software  has.  But  the 
extent  to  which  you  can  design 
specialized  reports  varies.  Anti- 
cipate your  future  needs. 

Remember:  You  should  be 
able  to  have  all  your  questions 
answered  either  by  examining 
the  outside  of  the  package, 
reading  the  software  documen- 
tation, or  asking  specific  ques- 
tions of  the  dealer.  If  you're 
planning  a  substantial  invest- 
ment in  a  data  base  manager,  it 
might  even  be  worth  writing  to 
the  publisher  if  you  can't  get  an 
important  question  answered. 


A  Few  Bonuses 

Though  it's  not  absolutely  nec- 
essary, it  can  be  helpful  to  have 
a  data  base  that  is  compatible 
with  a  word  processing  pro- 
gram. The  reason  for  this,  be- 
lieves Bellinghausen,  is  that 
mailing  lists  are  "far  and  away 
the  most  widely  used 
application." 

Another  feature  that  few 
data  base  programs  offer  is  the 
ability  to  go  back  and  change 
field  specifications  after  you've 
already  entered  a  number  of 
records.  To  illustrate  the  value 
of  this,  let's  set  up  an  imaginary 
file,  a  personal  mailing  list. 

Addressing  The 
Problem 

It  would  seem  like  the  best  way 
to  set  up  a  file  structure  for  this 
application  would  be  to  imitate 


the  way  that  an  address  book  is 

arranged:  one  line  (field)  for 
name,  one  for  street  address, 
one  for  city,  state,  and  zip,  and 
one  for  phone  number.  Maybe 
an  extra  line  in  case  the  address 
runs  long. 

You  then  specify  that  each 
field  can  accept  both  alpha  and 
numeric  characters,  and  allow 
ample  characters  per  field.  You 
transfer  all  the  information  from 
your  address  book  and  various 
scraps  of  paper  lying  around  on 
your  desk  at  home. 

Then  in  November  you 
start  thinking  about  sending 
Christmas  cards.  You  remember 
that  little  notebook  that  you've 
used  to  keep  track  of  cards  sent 
and  received  over  the  last  five 
years. 

At  this  point  it  becomes 
clear  that  you  should  have  spec- 
ified extra  fields  in  your  address 
file  for  the  Chrismas  list.  Also,  it 
would  have  been  nice  to  have 
specified  fields  to  keep  track  of 
birthdays. 

If  your  data  base  software 
does  not  allow  you  to  go  back 
and  add  new  fields  to  existing 
records,  your  options  are  to  ei- 
ther set  up  a  new  file  and  reen- 
ter all  of  your  records,  or  keep 
one  set  of  records  in  a  drawer 
and  one  on  a  disk. 

Making  It  Easier 

"I  used  to  use  data  base  soft- 
ware on  my  Atari,"  said  one 
home  computer  owner  we  ques- 
tioned. "But  now  I  just  use  a 
word  processing  program  to 
keep  track  of  names  and 
addresses." 

Your  data  management 
needs  may  not  be  extensive 
enough  to  warrant  buying  a 
large,  sophisticated  data  base 
manager.  Or  maybe  there  are 
some  specific  applications  you 
could  use  data  base  software 
for,  but  don't  want  to  take  the 
time  to  work  with  a  multipur- 
pose data  manager. 

An  alternative  to  generic 
data  base  programs — those  that 
require  you  to  set  up  your  own 
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The  ABC's  Of  Data  Bases 


Charles  Brannon,  Program  Editor 

There  are  several  "generic"  applications  for 
microcomputers.  Electronic  spreadsheets 
such  as  VisiCalc  helped  to  spark  the  micro- 
computer revolution.  Word  processing  has 
made  many  a  computer  purchase  easily  jus- 
tified. And  data  base  programs  are  now  one 
of  the  hottest  items  on  the  market.  The  best- 
selling  software,  such  as  Lotus  1-2-3,  incor- 
porates all  three  of  these  applications. 
Although  packages  such  as  Lotus  1-2-3  (first 
sold  for  the  IBM  PC)  have  more  sophistica- 
tion and  scope  (as  well  as  a  much  higher 
price  tag)  than  similar  programs  on  home 
computers,  there's  still  a  lot  you  can  do  with 
even  a  bargain-basement  data  base. 

Just  as  spreadsheets  have  made  finan- 
cial analysis  easier,  faster,  and  more  flexible, 
just  as  word  processors  have  blurred  the 
distinction  between  rough  and  final  drafts, 
data  bases  can  make  all  your  record  keeping 
simple,  streamlined,  and  fast.  But  first  you 
have  to  translate  the  concepts  of  manual 
record  keeping  to  the  computer's  way  of  do- 
ing things.  Since  you're  bound  to  encounter 
new  vocabulary  and  principles  as  you  con- 
vert to  electronic  record  keeping,  it's  useful 
to  have  a  background  in  these  things  as 
you're  searching  for  the  right  package  for 
your  needs.  First,  a  clarification:  Sometimes 
the  program  that  manages  the  data  is  called 
•a  data  base.  The  set  of  all  your  data  is  also 
referred  to  as  the  data  base.  Context  usually 
makes  the  meaning  clear. 

Files,  Records,  Fields 

To  understand  some  of  the  features  of  data 
base  management,  think  of  how  records  are 
organized  if  no  computer  is  involved.  Short 
items  are  usually  stored  on  index  cards, 
then  shoved  in  a  box.  This  whole  box  of 
cards  would  be  called  a  file  on  a  data  base. 
Each  card  is  called  a  record.  Records  are  fur- 
ther subdivided  into  fields.  Before  you  can 
enter  any  information,  you  have  to  set  up  or 
define  the  data  base  by  entering  the  name, 
type,  and  length  of  each  field.  To  illustrate 
these  subdivisions  of  a  file,  we  can  look  at  a 
common  type  of  data  base,  the  mailing  list. 
Each  record  in  such  a  file  would  be  an  in- 
dividual mailing  label.  And,  within  each 
record,  the  fields  would  probably  be:  name. 


address,  city,  state,  and  zip  code. 

Many  data  bases  ask  you  to  estimate 
the  length  and  type  of  each  field.  This  way, 
the  data  base  program  can  tally  up  a  total 
for  the  length  of  each  record.  The  memory 
(computer  RAM  or  disk  drive)  is  then  sub- 
divided into  records  of  that  length.  By  con- 
trast, other  data  bases  will  assume  a  fixed 
record  length  (usually  the  size  of  one  disk 
sector),  then  let  you  divide  the  record  up 
into  fields.  You  still  have  to  estimate  the 
length  and  type  of  each  field.  Some  data 
bases  can  modify  the  fields  at  any  time,  but 
many  data  bases  can't.  It's  often  wise  to  set 
aside  some  extra  fields  in  case  you  later 
want  to  start  including  additional  infor- 
mation in  each  record,  like  telephone  numbers. 

Field  length  is  based  on  what  kind  of 
information  it  will  be  expected  to  contain. 
People's  names  will  generally  be  less  than 
20  characters.  An  address  can  be  longer,  say 
30  characters.  Most  cities  can  be  spelled  in 
under  15  characters.  Using  the  official 
abbreviations,  the  state  field  takes  only  two 
characters. 

Another  aspect  of  fields  is  their  type — 
Name,  address,  city,  and  state  are  all  string  or 
alphanumeric  fields.  The  zip  code,  however, 
is  always  a  number  and  so  it  could  be  as- 
signed to  a  numeric  field.  Numeric  fields 
store  their  numbers  in  a  fixed  number  of 
bytes,  in  the  computer's  internal  floating 
point  format.  What  this  means  to  you  is  that 
no  matter  how  long  or  short  the  number  is 
when  written  out  (5,2  or  5,200,000),  it  will 
only  require,  say,  five  bytes  to  store.  Ad- 
vanced data  bases  have  several  other  types. 
A  field  requiring  a  yes/no  answer  can  be 
stored  with  only  1  bit  (l=yes,  0  =  no).  You 
could  pack  eight  yes/no  answers  in  one 
byte.  This  is  often  called  a  boolean,  bit,  or 
binary  field.  Some  data  bases  might  support 
a  byte  field,  which  can  hold  only  numbers 
in  the  range  0-255. 

The  key  field  is  the  primary  field  you 
use  when  accessing  records.  If  the  key  field 
is  name,  you  can  look  up  any  mailing  label 
by  the  addressee's  name.  Many  data  bases 
will  let  you  sort  the  entire  file.  You  choose  a 
key  field  to  sort  by.  if  you  sort  by  zip  code, 
the  file  will  be  ordered  according  to  the  zip 
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STOP  unexplained  data  Joss,  BLOCK 

power  line  hash  €md  AVOID  damaging 

transient  voltages  with  GESP-TSSf 


Now  you  cdiix  plug  into  the 
double-duty  protection  for 
your  sensitive  personal  com- 
puter! General  Electric's 
GESP-753  Voltage  Surge  Sup- 
pressor guards  valuable 
equipment  two  ways:  against 
voltage  spike  and  noise — eJl 
in  one  device! 

With  a  GESP-753  Voltage 
Surge  Suppressor,  you  can 
also  guard  against  potentially 
damaging  transient  voltages 
and  prevent  the  generation  of 
additional  noise  from  being 
sent  down  the  power  line  by 
your  equipment.  Reduce 
unexplained  data  loss  and 
block  interference  that 
raises  havoc  with  audio  or 
TV  reception. 

How  spikes,  surges  and 
other  gremlins  attack. 

Power  switching  devices  (such 
as  heating/cooling  equipment 
going  on  and  off)... utility 
transformers  stepping  up 
power  to  meet  peak  load 
needs... and/or  an  electrical 
storm  in  the  area.  Each  and 


all  of  these  can  play  havoc 
with  any  sensitive  electronic 
equipment — find  your  data 
input  in  particular — by  trig- 
gering a  momentary  surge,  a 
transient  voltage  spike,  radlo- 
frequenc>'  or  electromagnetic 
interference. 

Simple  installation. 

Just  plug  the  GESP-753  into 
the  upper  outlet  of  any 
standard  IIOv  wall  grounding 


receptacle.  A  stabilizer  pin  fits 
into  the  grounding  contact  of 
the  unused  outlet  to  hold  the 
unit  in  place.  Once  plugged 
in,  a  buUt-in  light  is  illumi- 
nated to  remind  you  that  the 
protection  circuits  are 
working.  Then,  simply  plug  in 
the  power  supply  cord  of  the 
equipment  you  want  pro- 
tected; up  to  three  grounded 
outlets  per  GESP-753. 

Technical  Specifications 

•  Clamping  level  32  5v 

•  Attenuation 

Up  to  40  db 

(200  Khz— 30  Mhz) 

Over  35  db 

(0,5  Mhz— 5  Mhz) 

•  Response  time  1 
nemosecond 

•  Energy  dissipation  50  joules 

For  the  names  of  distributors 
and  dealers  in  your  area 
where  you  may  obtain  the 
GESP-753.  circle  the  number 
shown  below  on  the  reader's 
service  card. 


We  bring  good  things  to  life. 

GENERAL^ELECTRIC 

Microwave  Products  Department,  .316  E.  Ninth  St.,  Owensboro,  KY  42301 


©  1984  General  Elecnic  Company 


code  when  printed  out.  Some  data  hi 
you  sort  or  search  with  multiple  keys.  For 
example,  you  could  print  out  a  list, 
alphabetized  by  name,  of  all  addressees  living 
in  California.  The  sort  would  be  keyed  to 
the  name  field,  and  the  printout  would  be 
selective  by  only  printing  and  sorting  those 
fields  whose  state  field  is  CA. 

A  Range  Of  Features 

Features  vary  from  one  data  base  to  another. 
Their  primary  purpose  is  to  let  you  store 
and  retrieve  records.  But  once  you  have  a 
large  data  base,  you  should  be  able  to 
manipulate  and  interrogate  the  data  base, 
with  all  the  speed  and  power  that  the  com- 
puter can  bring  to  bear.  We've  already  men- 
tioned sorting  and  printing.  If  you  want  to 
keep  a  mailing  list,  be  sure  the  data  base 
can  print  out  mailing  labels!  You  should  also 
be  able  to  remove  (delete)  a  record  once  it  is 
no  longer  needed.  If  you  are  manually  keep- 
ing the  list  in  a  certain  order,  you  want  to 
be  able  to  insert  new  records  between  exist- 
ing ones.  It's  very  handy  to  have  a  printout 
of  just  one  field  from  every  record.  A  direc- 
tory function  like  this  can  usually  print  out 
the  key  field  from  each  record  for  future  ref- 
erence. Some  data  bases  permit  you  to  per- 
form math  on  numeric  fields,  even  across 
the  entire  file.  Others  offer  sophisticated  re- 
port generation,  where  you  can  design  a 
custom  printout,  complete  with  rows,  col- 
umns, and  calculations  like  totals  and 
percentages. 

You  may  want  to  be  able  to  access  your 
data  base  file  from  within  other  programs. 
To  do  this,  a  word  processor,  for  example, 
must  be  compatible  with  the  data  base,  so 
that  information  can  be  retrieved  and  in- 
serted into  the  text  held  by  the  word  proces- 
sor. Or,  if  your  data  base  can  create  files 
that  are  compatible  with  the  word  processor, 
you're  in  business.  If  this  is  important  to 
you,  try  out  both  the  word  processor  and 
the  data  base  together  before  you  buy  either. 

If  you  have  a  cassette  system,  you'll 
probably  want  to  buy  a  memory-storage 
data  base.  These  store  the  records  in  RAM. 


The  advantage  here  is  speed.  You  can  sort 
and  search  for  records  much  faster  in  mem- 
ory than  you  can  with  a  tape  drive.  At  the 
end  of  the  session,  you  save  out  the  entire 
data  base  to  tape.  The  disadvantage  here  is 
that  this  limits  the  amount  of  data  which 
can  be  stored  to  the  amount  of  RAM  you 
have  in  your  computer.  Also,  memory-based 
data  bases  often  slow  to  a  crawl  when  their 
memory  is  full. 

If  you  have  a  lot  of  data  to  store,  you'll 
probably  need  a  disk-based  data  base.  The 
records  are  stored  directly  on  disk,  and  any 
record  can  be  called  up  without  reading 
through  the  entire  file.  You  can  usually  use 
the  whole  disk  for  a  single  data  base,  or 
even  link  the  data  base  to  a  second  disk  or 
disk  drive.  The  disadvantage  with  a  disk- 
based  data  base  is  the  speed  of  disk  access 
time,  which  is  generally  much  slower  than  a 
memory  data  base. 

Be  critical  of  the  data-entry  mode. 
You'll  be  using  that  part  of  the  data  base 
more  than  any  other  as  you  type  in  all  the 
data.  Grade  a  program's  entry  mode  in 
terms  of  how  easy  it  is  to  learn,  how  easily 
you  can  edit  and  make  changes,  and  how  it 
reacts  to  errors  you  make.  Does  it  check  to 
make  sure  the  field  you've  entered  is  of  the 
correct  type  for  that  field?  Does  it  warn  you 
if  you've  typed  too  much  for  one  field,  or 
does  it  just  chop  off  the  extra  characters? 

Some  data  bases,  like  dBASE  U,  are  so 
sophisticated  and  flexible  that  they  are  prac- 
tically a  programming  language  for  data 
base  management.  Many  people  buy  tem- 
plates for  them.  Templates  are  like  programs 
for  the  data  base.  The  template  sets  up  all 
the  fields,  and  includes  the  search  and 
calculation  descriptions.  A  template  can  also 
control  the  kinds  of  printouts  allowed.  You 
don't  need  to  be  a  programmer  to  use  an 
advanced  data  base,  but  you  do  have  to 
learn  the  commands  and  protocols  of  that 
particular  program.  But  once  you've  set  up  a 
certain  kind  of  file,  a  template  could  create 
replications  of  that  file  type  automatically 
the  next  time  you  want  to  build  a  similar 
data  base. 


files — is  application-specific  data 
base  software. 

Batteries  Included  offers 
such  a  series  for  the  Commo- 
dore 64.  At  $29.95  each,  these 
"mini-data  bases"  offer  tailor- 
made  filing  systems  ranging 
from  Electronic  Address  Book  to 
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Recipes  to  Audio/Video  Cata- 
log. Eight  different  packages  are 
currently  available. 

No  one  could  call  data  base 
software  faddish.  After  all,  it  fa- 
cilitates one  of  the  fundamental 
computer  functions — information 
processing.  And,  in  one  form  or 


another,  data  bases  have  been 
around  for  a  long  time,  albeit  in 
low-tech  forms  like  filing  cabi- 
nets and  boxes  of  index  cards. 
Data  managing  software  offers  a 
fast,  effective  method  of  storing, 
sorting,  and  searching  all  kinds 
of  information.  © 


[f  you've  been  having  a  hard  time 
teaching  your  newly-adopted  computer 
there's  more  to  life  than  fun  and  games, 
you're  not  alone. 

Now,  you  can  introduce  your  Commodore  64™  to  the  Work  Force:  affordable,  easy-to- 
use  software  and  hardware  that  will  unleash  the  power  you  always  expected  from  your 
Commodore  64™,  but  thought  you  might  never  see. 


PAperCHp" 

is  simply  the  best  word  processing  program  of  its 
kind — loaded  with  advanced  features,  yet  so  easy  to 
use  even  a  novice  can  get  professional  results.  With 
SpellPack™,  it  even  corrects  your  speiiing!  Once  you've 
tried  it,  you'll  never  use  a  typewriter  again. 


(formerly  Delphi's  Oracle) 

is  like  a  computerized  filing  cabinet  with  a 
brain.  Organize  files  for  recipes,  albums, 
or  the  membership  of  your  service  club. 
Then  search,  sort,  arrange  and 
analyze  your  information  with  speed 
and  flexibility  that's  simply  astounding. 

SpellPack 

teaches  your  64  to  spell.  It  checks  an  entire 
document  in  2  to  4  minutes  against  a 
dictionary  of  over  20,000  words.  And  you 
can  add  up  to  5,000  of  your  own 
specialized  terms.  Type  letter  perfect  every 
time! 


BusOtrdll" 

is  a  magic  box  that  lets  you  transform  your  humble 

home  computer  into  a  powerful  business  machine.  It 

gives  you  the  added  power  of  BASIC  4.0,  and  lets 

you  add  IEEE  disk  drives,  hard  disk,  virtually  any 

parallel  printer,  and  other  peripherals  without  extra 

interfaces.  Completely  software  invisible. 

B.L'SO''' Column  Adaptor 

gives  you  crystal  clear  80  column 

display.  Using  the  highest  quality 

hardware,  we've  eliminated  the  problems 

of  snow,  fuzziness  and  interference. 

Basic  4.0  commands  greatly  simplify 

disk  drive  access.  Switches  easily  from 

40  to  80  column  display. 


Discover  the  true  power  of  your 

Commodore  64'".  Ask  your  dealer  about 

the  Commodore  64'"  Work  Force,  from 

Batteries  Included — the  company  that 

doesn't  leave  anything  out  when  it  comes 

to  making  things  simple  for  you. 


INCLUDED 


"Excellence  in  Software " 

These  products  have  been  developed  specifically  for  Commodore  computers  by  Batteries  Included  and  are  totally  compatibfe  with  each  othef.  For  a  full  color  brochure  write  to: 

186  Queen  Street  West,  Toronto,  Canada  M5V 1Z1  (416)  596-1405/3303  Harbor  Blvd.,  Costa  Mesa,  CA.  92626  (714)  979-0920 

84  AND  COMMODORE  64  ARE  REGISTERED  TfWDE  MAflKS  OF  COMMODORE  BUS  INESS  MACHINES 


The  Promise  Of  Things  To  Come: 

Atari's  New  Lease  On  Life 

Fred  D'lgnozio,  Associate  Editor 
Seiby  Boteman,  Features  Editor 


When  an  especially  strong 
earthquake  recently  shook  the 
California  city  of  Sunnyvale, 
most  of  the  residents  shrugged, 
smiled  nervously,  and  tried  not 
to  think  about  the  next  one. 

But  among  the  hundreds  of 
people  who  work  for  Atari  in 
more  than  two  dozen  nonde- 
script buildings  there,  the  quake 
appeared  to  be  hardly  noticed. 
When  you've  already  had  the 
world  turned  upside  down  and 
are  feverishly  working  to  restore 
your  corporate  footing,  a  little 
more  trembling  scarcely  seems 
worth  worrying  about. 

In  retrospect,  the  earth- 
shaking  that  Atari  took  from  the 
end  of  1982,  through  1983,  and 
into  the  early  part  of  1984, 
seems  to  have  had  the  same  sort 
of  explosive  force  that  first 
powered  the  company  into  be- 
coming  a  billion-dollar  organiza- 
tion. Almost  overnight.  Atari 
went  from  being  king  of  the 
videogame  and  home  computer 
market  to  being  every  analyst's 
example  of  the  boom-and-bust 
potential  inherent  in  the  com- 
puter revolution. 

World-Class  Problems 

The  litany  of  problems  was  in- 
deed world-class:  over  half  a 
billion  dollars  in  losses  for  the 
first  three-quarters  of  1983,  pre- 
mature announcements  of  sev- 
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James  Morgan,  chairman  and  chief 
executive  officer  of  Atari,  Inc. 


Out  of  the  ashes  of  a  disastrous 
1983,  a  slimmer  and  more  seri- 
ous Atari,  Inc.,  is  fashioning  a 
comeback  under  the  guiding 
hand  of  new  chairman  and 
CEO  James  Morgan.  In  this, 
the  first  of  a  two-part  look  at 
Atari  and  its  new  products, 
Morgan  talks  candidly  to  COM- 
PUTE! about  his  company's  mis- 
takes, its  strengths,  its  hopes. 


eral  products  that  never 
appeared,  the  unsuccessful 
launch  of  the  1200XL  computer, 
layoffs  of  hundreds  of  Atari  em- 
ployees, and  a  management 
team  wracked  with  dissension, 
low  morale,  and  a  lack  of  corpo- 
rate focus. 


Enter  James  Morgan,  a  for- 
mer Phillip  Morris  marketing 
executive,  who  replaced  Ray 
Kassar  in  September  1983.  His 
mandate  from  parent  company 
Warner  Communications  was  as 
simple  to  state  as  it  was  difficult 
to  carry  out:  Turn  Atari  around. 

"Before  I  came,  this  com- 
pany thought  it  was  a  toy  com- 
pany, IBM,  and  everything  in 
between,"  says  Morgan.  "And  it 
was  devoting  people  and  re- 
sources to  all  of  that." 

Energy,  Hope,  And 
Resolve 

Morgan  has  not  gone  about  his 
cleanup  at  Atari  quietly.  Instead, 
he  has  become  one  of  the  most 
outspoken  critics  of  the  com- 
pany's past  policies.  He  often 
sounds  more  like  an  irate  con- 
sumer than  a  computer  com- 
pany president. 

In  his  effort  to  reshape 
Atari,  Morgan  laid  off  an  addi- 
tional 250  employees  last  win- 
ter, including  Chris  Crawford, 
Atari's  highly  regarded  research- 
and-development  director.  Also, 
Atari's  chief  scientist,  Alan  Kay, 
left  the  company  in  the  spring 
to  join  Apple  Computer  as  an 
Apple  Fellow. 

Despite  these  changes — and 
in  some  cases  because  of 
them — Morgan  appears  to  have 
brought  new  energy,  new  hope, 
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Features  like  these  make  our  new  clot  matrix  impact 
printer  a  Lei^end.  While  a  low  price  makes  it  a  neai- 
miracle!  Imagine,  all  this  and  more  for  less  th^ui  $5^0. 
That  puts  you  into  our  80-c]is  Legend  800  model  And 
if  y(.")u're  looking  for  something  even  tlisier,  look  into 
our  100-cps  Legend  1000. 

See  them  both  at  a  dealernear  vou.  Or  drop  us  a 
line  for  facts  by  mail:  Q\L-MK:0,  PERIPHEIW.S  DMSION, 
14722  Oxnard  Street,  V^in  Nuys,  CA  91401.  Telephone 
(818)  994-0909.  loll  free        '     |    f'f^C'n^ 
1-800-321-4484. Telex  662436.      ULllLI  111 
Dealer  inquiries  invited.  PERIPHERAL  PRODUCTS 

Tbll  Free  1-800-321-4484 
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and  a  new  resolve  to  Atari's  ef- 
forts. With  an  enthusiasm  that 
has  been  missing  for  over  a 
year.  Atari  employees  and  exec- 
utives this  spring  were  eagerly 
preparing  for  June's  Consumer 
Electronics  Show  in  Chicago  and 
for  the  12  months  following — 
commonly  acknowledged  as  the 
period  during  which  Atari  must 
show  the  world  and  Warner 
Communications  that  it  is  back 
on  the  right  track. 

"The  Public  Still 
Loves  Us" 

Morgan  is  excited — not  only 
about  Atari's  future  plans — but 
about  the  company's  current 
strengths,  which  he  believes 
have  been  largely  overlooked. 

"The  financial  analysts  and 
the  computer  press  have  been 
disenchanted  with  Atari  for  sev- 
eral months,  but  the  public  still 
loves  us.  This  gives  us  a  fran- 
chise from  the  consumer  to  de- 
velop the  type  of  microprocessor 
products  that  the  consumer  will 
want,"  he  says. 

"Before  we  could  announce 
any  products  though,  we  had  to 
get  a  sense  of  our  own  self- 
identity.  Who  are  we?  What  are 
our  strengths?" 

All  has  not  been  bleak  for 
Atari.  The  600XL  and  800XL 
computers  have  sold  well.  In 
fact,  Morgan  told  analysts  ear- 
lier this  year  that  Atari  could 
have  sold  about  40  percent 
more  computers  during  the 
Christmas  rush  if  they  had  been 
available  to  ship.  And  despite 
dire  predictions  about  the  death 
of  the  videogame  machine.  Atari 
seems  confident  that  this  market 
is  stronger  than  some  analysts 
have  estimated. 

AtariSoft  And  Atari 
Learning  Systems 

Atari's  market  share  began 
climbing  this  past  spring.  And 
the  company's  software  divi- 
sion, AtariSoft,  and  its  educa- 
tional division.  Atari  Learning 
Systems,  both  appear  to  be 
doing  well. 
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The  AtariLab  computer  science  kit,  ivith  its  temperature  module,  brings 
science  into  the  real  world  for  computer  users  and  is  one  indication  of 
Atari's  commitment  to  quality  educational  software. 


Linda  Gordon,  who  directs 
the  Atari  Learning  Systems 
Group,  has  a  strong  team,  in- 
cluding Dorothy  K.  Deringer, 
formerly  program  officer  with 
the  National  Science  Founda- 
tion. In  the  burgeoning  educa- 
tional software  field,  Atari 
expects  this  division  of  the  com- 
pany to  offer  some  of  the  most 
innovative  and  high-quality 
products  for  schools  and  home 
learning  that  will  be  available  in 
the  industry. 

Products  like  the  recently 
released  AtariLab,  a  computer- 
ized science  kit,  and  a  series  of 
other  products  similar  in  scope 
and  quality  (being  introduced  at 
CES)  are  creating  excitement 
and  momentum  within  the  en- 
tire Atari  organization. 

Morgan  is  quick  to  point 
out  what  he  feels  are  a  few  of 
Atari's  underlying  strengths. 
"First,  the  combination  of  color 
graphics  and  sound  in  Atari 
computers  is  better  than  in  our 
competitors'  computers.  Second, 
more  people  are  familiar  with 
Atari  than  with  any  other  com- 
puter company.  Remember,  16 


million  Americans  have  an  Atari 
computer — a  2600  video- 
computer  system — in  their 
home,"  he  says. 

"Third,  when  people  think 
of  Atari,  they  think  of  entertain- 
ment. That  is  a  tremendous  ad- 
vantage, but  not  just  so  we  can 
sell  more  videogames.  Comput- 
ers can  make  learning  more  en- 
tertaining. They  can  even  make 
work  more  entertaining — as 
well  as  more  productive." 

The  Computer  Of  1990 

But  Morgan  is  frank  about  what 
he  feels  Atari  must  do  in  the  fu- 
ture to  reestablish  itself  as  a  cre- 
ative and  credible  force  in  the 
microcomputer  field.  A  commit- 
tee Morgan  chairs  at  Atari, 
called  "The  Computer  of  1990," 
meets  frequently  to  brainstorm 
about  future  directions.  Division 
heads  and  product  managers  re- 
portedly have  more  communica- 
tion with  one  another  than  in 
the  past.  And  products  or  strate- 
gies that  once  went  unques- 
tioned, have  all  undergone 
Morgan's  scrutiny. 

For  example,  the  popular 


Atari  Program  Exchange  (APX), 
a  division  of  the  company 
which  purchased,  produced,  and 
marketed  consumer-written  pro- 
grams for  Atari  computers,  has 
been  drastically  reshaped. 

"Atari  has  redeployed  some 
of  its  resources  and  programs  so 
that  they  are  more  consistent 
with  the  current  goals  of  the 
company,"  says  Morgan.  "In  the 
case  of  APX,  Atari  has  discon- 
tinued the  mail-order  portion  of 
the  program.  Atari  lost  money 
in  this  portion  of  the  business. 

"Moreover,  Atari  had  to 
come  to  grips  with  the  fact  that 
Atari  is  not  in  the  mail-order 
business.  However,  APX  will 
continue  to  review  products  sent 
to  Atari  by  outside  program- 
mers," he  says.  "If  the  programs 
are  topnotch,  they  will  be  added 
to  the  main  Atari  catalogue. 
Otherwise,  they  will  not  be  sold 
by  Atari  in  any  fashion." 

The  Fate  Of  The 
1450XLD? 

Morgan  also  took  a  hard  look  at 
Atari's  plans  for  a  high-end 
computer.  The  1400XL  and  the 
1450XLD,  announced  at  the 
June  1983  Consumer  Electronics 
Show  (CES),  were  never  re- 
leased. The  1400  was  unceremo- 
niously dropped,  and  the  1450, 
although  exhibited  at  the  Janu- 
ary CES,  was  not  yet  on  the 
market. 

"Atari  will  sell  a  high-end 
computer  in  1984,"  Morgan 
now  says,  "but  the  specific 
product  features  of  that  high- 
end  machine  still  are  under  re- 
view. We  showed  the  1450XLD 
at  the  Consumer  Electronics 
Show  in  January  of  1984  to 
demonstrate  our  intent  to  mar- 
ket a  high-end  machine  this 
year." 

In  fact,  by  the  time  you 
read  this.  Atari  may  well  be 
marketing  such  a  computer. 
And  this  points  to  one  of  the 
major  changes  Morgan  has  insti- 
tuted at  Atari;  "We  want  Atari 
to  be  seen  as  the  consumer's 


friend,"  he  says.  "That  means 
we  don't  announce  any  prod- 
ucts unless  we  are  willing  to 
back  them  100  percent," 

Enhancing  Lives 
Through  Interactive 
Electronics 

Morgan  also  makes  it  clear  that 
Atari  has  no  intention  of  aban- 
doning the  computer  market. 

"That's  the  real  tragedy  of 
Atari.  Despite  a  record  of  sev- 
eral excellent  computers,  we  are 
still  known  as  a  videogame 
company"  he  says.  "But  we're 
going  to  change  that.  Over  the 
next  18  months,  we  will  be  in- 
troducing a  host  of  new  prod- 
ucts that  will  create  an 
awareness  and  acceptance  of 
Atari  as  being  a  superior  com- 
puter manufacturer." 

While  Atari's  product  line 
will  be  more  focused  than  in  the 
past,  the  company's  new 
strengths  will  have  a  broader 
base,  Morgan  suggests.  "Our 
goal  isn't  to  just  produce  com- 
puters. It  is  to  produce  products 
that  enhance  consumers'  lives 
through  interactive  electronics." 

"Invisible"  Computers 

"To  think  this  way,  we  have  to 
think  beyond  user  friendliness 
and  beyond  desktop  computers. 
We  have  to  think  of  products 
that  are  invisible. 

"For  example,  a  truly 
friendly  product  should  not  sep- 
arate you  from  the  task  at  hand. 
It  should  be  like  a  refrigerator — 
you  just  reach  inside  the  door 
and  get  what  you  need.  After 
all,"  he  says,  "the  product,  any 
product,  is  not  a  hero.  It  is  just  a 
medium.  It  is  the  carrier  of  what 
is  important." 

Morgan  clearly  expects 
June's  CES  show  in  Chicago  to 
be  a  major  first  step  in  the  com- 
pany's introduction  of  new 
products  aimed  at  carrying  Atari 
back  to  critical  and  financial 
success.  But  he  has  not  limited 
Atari  to  the  introduction  of 
products  at  trade  shov.'s. 


Tuning  In  To  The 
Consumer 

In  early  May,  Atari  announced 
new  Lucasfilm  games — Ball- 
blazer  and  Rescue  on  Fractalus — 
which  Atari  has  developed  in 
association  with  the  special- 
effects  wizards  at  the  well- 
known  motion  picture  company. 
And  by  the  time  you  read  this. 
Atari  is  scheduled  to  have  pre- 
miered a  new  high-end  game 
machine,  the  7800  Pro  System. 
Both  of  these  new  products 
were  scheduled  to  be  shown  at 
CES  in  June  as  well. 

"Our  major  priority  at  Atari 
is  to  tune  in  to  the  consumer. 
Ultimately,  the  home  computer 
is  not  an  entity  unto  itself.  It  is 
not  a  question  of  what  a  com- 
puter can  do.  It  is  a  question  of 
what  a  consumer  does  with  it," 
Morgan  says. 

"In  my  opinion,  we  still 
have  not  given  consumers  a 
compelling  reason  to  buy  a 
computer.  And  we  haven't 
spent  enough  time  molding  our 
products  to  consumers'  desires." 

Atari's  "Smart" 
Telephone 

"For  example,  most  people  like 
to  communicate  with  other 
people,"  he  says.  "That  is  a  real 
need  and  a  real  desire.  And 
cqmputers  can  help  people  com- 
municate. But  it's  not  easy.  You 
have  to  type  all  sorts  of  special 
codes  and  commands,  just  to  get 
started.  Instead,  it  should  be  just 
as  easy  as  using  a  phone.  You 
should  be  able  to  press  a  couple 
of  buttons  and  communicate." 

Morgan  says  that  AtariTel, 
the  company's  telecommuni- 
cations division,  will  introduce 
"smart  telephones"  in  the  second 
half  of  1984.  "These  telephones 
will  be  microprocessor-based. 
We  currently  are  deciding  how 
we  will  market  the  product,"  he 
adds. 

While  redirecting  Atari's  ef- 
forts, Morgan  has  also  studied 
the  microcomputer  industry  as 
well.  And  one  of  the  major 
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problems  still  troubling  the  in- 
dustry, he  emphasizes,  is  that 
home  computer  technology  is 
ahead  of  the  average  consumer 
without  matching  the  consumer's 
real  needs.  The  challenge,  there- 
fore, is  for  computer  manufac- 
turers to  translate  this  new 
technology,  while  at  the  same 
time  giving  prospective  buyers 
genuine  reasons  to  purchase  a 
computer. 

Alan  Alda  Is  The  Bridge 

Assisting  in  Atari's  efforts  to  ex- 
plain its  computers  is  actor  Alan 
Alda,  who  represents  what  Mor- 
gan calls  a  "bridge"  to  adults  by 
selling  the  application  of  Atari 
technology,  and  the  ease  of  use. 

"He  [Alda]  always  picks 
one  activity,  like  word  process- 
ing, or  education,  and  shows 
you  how  you  can  do  it  on  an 
Atari.  Alan  doesn't  want  to 
make  adults  buy  computers  be- 
cause they  feel  guilty.  He  wants 
them  to  buy  a  computer  because 
they're  excited  about  doing 


something  they  have  seen  him 
do,"  says  Morgan. 

"Also,  he  never  sells  RAM, 
ROM,  or  CPUs.  The  CPU  is  the 
least  important  element  in  the 
computer.  It  is  like  the  engine  of 
a  car.  Most  people  buy  a  car 
without  opening  the  hood,"  he 
says.  "There  is  a  common  un- 
derstanding among  car  owners 
that  the  engine  will  work,  and  it 
will  get  them  where  they're 
going.  The  CPU  is  like  the  en- 
gine. You've  got  to  have  it,  but 
you  don't  sell  computers  be- 
cause of  it  alone." 

Morgan's  Open  Letter 

Morgan's  impact  at  Atari  has 
not  only  been  felt  directly  by  his 
employees.  He  has  also  gone 
out  of  his  way  to  be  accessible 
to  industry  analysts,  the  press, 
and — most  importantly — the 
thousands  of  loyal  Atari  owners 
who  are  both  a  present  and  fu- 
ture market  and  a  formidable, 
knowledgeable  circle  of  critics. 

A  personal  and  candid  letter 
from  Morgan  to  Atari  owners 
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popped  up  on  the  message  sec- 
tion of  CompuServe  earlier  this 
year,  for  example.  In  the  note, 
Morgan  thanked  them  for  their 
support  and  criticism,  explained 
his  view  of  Atari's  past  prob- 
lems, and  requested  their  con- 
tinued interest  in  Atari's  future. 

This  kind  of  attention  to 
personal  detail,  and  the  simulta- 
neous redirection  of  Atari's  ef- 
forts, have  done  much  to  restore 
the  morale  among  Atari  em- 
ployees and  have  helped  give 
the  company  valuable  time  in 
which  to  develop,  and  properly 
introduce,  new  products. 

Frank  Questions  And 
Open  Communication 

Morgan  seems  to  understand 
that  his  role  must  be  multifac- 
eted.  "1  act  as  a  catalyst  to  the 
Atari  management  team,  which 
has  the  real  job  of  running  this 
company,"  he  says.  "1  try  to  set 
the  tone  for  the  management 
committee  and  1  help  point  the 
group  in  certain  directions. 

"As  someone  who  joined 
this  industry  as  an  outsider,  I 
have  been  able  to  take  a  fresh 
look  at  the  entire  consumer 
electronics  field  in  general  and 
this  company,  in  particular.  I'm 
not  afraid  to  ask  frank  ques- 
tions, and  also  question  why  we 
do  things  the  way  we  do.  I  en- 
courage all  Atari  employees  to 
examine  their  own  work  in  the 
same  way. 

"I  believe  strongly  that  one 
of  my  biggest  contributions  to 
Atari  will  be  the  implementation 
of  a  corporate  culture  here  that 
inspires  teamwork  and  open 
communications,"  Morgan  says. 
"I  want  to  encourage  people  to 
take  calculated  risks  and  not  be 
afraid  to  fail.  That's  part  of  be- 
ing an  excellent  company.  If  we 
become  an  excellent  company, 
then  sales  and  profits  will 
follow," 

(Next  month,  COMPUTE!  will 
take  an  in-depth  look  at  Atari's 
new  product  line  from  the 
Summer  Consumer  Electronics 
Show.)  ® 


Share  the  Olympic 


"Standing  on  the  top  of  the  Olympic  victory 
xtand  is  like  stretching  one's  body  on  the 
top  of  the  world.  It  is  a  moment  where  the 
individual  man  or  woman  gels  introduced 
to  the  whole  planet.  It  is  a  moment  that  is 
kis  or  hers  alone. " 

— Olga  Connolly 

Gold  Medalist,  1956  Olympics 

This  summer,  the  Olympic  torch 
will  return  to  Los  Angeles  after  52 
years.  The  stage  is  set.  Some 
10,000  athletes  from  150  countries 
will  battle  for  the  gold  in  the  historic  Games 
of  the  XXIII  Olympiad.  And  whether  or  not 
you  plan  to  attend  the  Games,  you  can 
participate  in  the  drama  of  this  once- 
in-a-lifetime  spectacle. 

You  and  your  friends  will  have 
virtual  front-row  tickets  with  the 
Official  Olympic  Guide  to  Los 
Angeles,  a  lavish  300-page 
magazine  that  captures  it  all— the 
thrills  of  great  Olympic  moments  past 
and  present,  future  stars  and  hopefuls, 
records  to  break,  maps,  TV  and  day- 
by-day  events  schedules. 

Everything  from  the  magic  of  opening 
ceremonies  to  the  final  lap  of  the 
marathon,  along  with  an  indispensable 
guide  to  Southern  California,  including 
top  attractions,  dining,  nightlife,  tips  and 
trips.  All  in  breathtaking  full-color 
photography  and  illustrations. 

You,  and  your  out-of-town  friends,  will 
share  all  the  action  of  this  memorable  event 
with  this  special  collector's  issue  that  will 
become  a  cherished  keepsake  of  the 
legendary  rekindling  of  the  Olympic  flame 
in  Los  Angeles. 

Order  now  and  be  ahead  of  the  ciowd. 
Send  in  your  check  or  money  order.  Or  call 
557-7587  and  charge  it  to  your  MasterCard 
or  Visa.  Official  Olympic  Guide,  1888 
Century  Park  East,  Suite  920,  Los  Angeles, 
California  90067. 
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Official  Olympic  Guide  to  Los  Angeles 
at  $5.95  each,  plus  $1.00  shipping  and 
handling.  Enclosed  is  my  check  or 
money  order. 


statistics  For 
Nonstatisticians 


A  Burke  Luitich 


Basic  statistical  methods  can  help  you  make  logical 
decisions  in  everyday  situations. 


For  the  most  part,  elementary  statistical  methods 
measure  a  group  of  similar  things  to  see  how  these 
measurements  vary  when  compared  to  some 
standard.  Another  use  for  statistics  is  to  see  how 
creating  a  group  of  objects  can  cause  variations  in 
these  objects. 

This  program,  "Statistics,"  takes  your  raw 
data  and  returns  figures  which  you  can  use  to 
make  everyday  decisions,  for  example,  about  the 
best  way  to  build  a  wall  or  how  much  cash  you'll 
need-when  you  go  shopping. 

As  a  first  example,  let's  look  at  two  ways  to 
cut  a  2  X  4,  by  using  a  power  table  saw  and  a 
handsaw.  We  set  the  table  saw  guide  to  one  foot 
and  cut  five  pieces.  We  cut  five  more  pieces  using 
a  handsaw,  then  measure  the  actual  lengths  of  all 
ten  pieces  to  see  how  accuratel}^  we  made  the  cuts. 

If  nothing  unusual  is  alloived  to  affect  the 
cutting,  we  can  expect  the  length  of  the  pieces  to 
vary  depending  on  the  process  used.  Statisticians 
call  this  an  unbiased  random  sample. 

Assume  the  measurenients  are  as  follows: 


Table  saw  lengths 

Hai 

idsaw  lengths 

(feel) 

(feet) 

1.05 

1.22 

.98 

.91 

1.03 

.80 

1.07 

1.28 

.96 

.88 

The  Same  Mean 

A  look  at  the  values  alone  suggests  that  cutting 
with  the  handsaw  is  a  far  less  consistent  method 
than  using  the  table  saw.  However,  if  you  add  up 
the  lengths  for  each  method  and  divide  by  5  (the 
total  cuts  for  each)  you  will  find  that  both  methods 
give  the  same  mean  (average)  length  of  1.018  feet. 
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Just  finding  an  average  length  doesn't  tell  us 
much.  What  we  need  to  know  is  how  widespread 
the  values  are  likely  to  be,  and  which  method 
gave  us  the  most  lengths  that  were  nearer  our 
standard  of  one  foot.  In  statistical  terms,  we  need 
to  calculate  the  range  and  the  standard  deviation. 

We  find  the  range  by  subtracting  the  shortest 
length  from  the  longest,  for  each  cutting  method. 
For  the  handsaw  the  range  is  .48  feet  (1.28  -.80), 
and  for  the  table  saw  the  range  is  .11  feet  (1.07- 
.96).  Immediately,  we  can  see  that  the  table  saw 
cut  more  consistently,  because  the  range,  or  vari- 
ation, is  smaller. 

We  can  use  the  standard  deviation  and  the 
mean  length  to  predict  how  often  a  given  length 
is  likely  to  occur.  You  don't  have  to  worry  about 
how  to  calculate  a  standard  deviation;  the  program 
does  this  for  you.  If  you  type  in  the  above  lengths 
for  the  handsaw,  the  program  will  return  a  stand- 
ard deviation  of  .217  feet.  The  standard  deviation 
for  the  table  saw  is  .047  feet. 

Degree  Of  Accuracy 

If  we  made  a  large  number  of  cuts,  then  measured 
and  graphed  the  lengths,  the  graph  would  form  a 
bell  curve,  or  normal  distribution.  By  combining 
the  standard  deviation  and  the  mean  length,  we 
get  a  range  of  lengths  that  includes  68,3  percent 
of  all  lengths  (again,  you  don't  have  to  know  the 
theory;  just  use  the  number).  To  illustrate,  first 
take  the  mean  length,  1.018  feet,  and  subtract 
from  it  the  standard  deviation  for  the  handsaw, 
.217  feet,  to  get  .801  feet.  Then  add  the  standard 
deviation  to  the  mean  length  to  get  1.235  feet. 
This  means  that  68.3  percent  of  our  lengths  fall  in 
the  range  between  .801  and  1.235  feet. 

By  adding  and  subtracting  the  standard  de- 
viation (.047  feet)  with  the  mean  length  of  the 
table  saw  cuts  (1.018  feet),  we  find  that  68.3  per- 
cent (roughly  two-thirds)  of  these  lengths  fall  in 
the  range  from  .971  to  1.065  feet. 

If  you  want  a  wider  sample,  you  must  increase 
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Now  your  home  computer  can  help  you  cook,  keep  your  accounts,  find  an  address  or 
keep  track  of  your  record  and  book  libraries — ^with  first-class  software  specially  tailored 
for  the  home  environment. 
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the  number  of  standard  deviations.  To  include 
95.4  percent  of  all  lengths,  use  two  standard  de- 
viations. For  the  handsaw,  we  now  have  .434 
feet,  two  standard  deviations.  Combining  it  with 
the  mean  length,  we  get  a  range  of  .584  to  1.452 
feet.  Our  table  saw  range  becomes  .924  to  1.102 
feet  (1.018  plus  and  minus  .094). 

Food  For  Thought 

You  can  use  the  same  methods  to  calculate  a  food 
budget.  In  this  case,  your  data  consists  of  the 
amounts  you  spent  on  groceries  over  a  13-week 
period  (one-fourth  of  a  year): 


Week 

Amount 

Week 

Amount 

1 

$42 

8 

47 

2 

50 

9 

65 

3 

75 

10 

49 

4 

37 

11 

43 

5 

51 

12 

52 

6 

45 

13 

54 

7 

56 

If  you  type  this  data  into  the  Statistics  program, 
you  will  find  that  your  mean  amount  spent  was 
about  $51;  that  your  spending  varied  from  $37  to 
$75,  for  a  range  of  $38;  that  you  spent  more  than 
$50  (your  median  amount)  as  often  as  you  spent 
less  than  that;  and  your  standard  deviation  is 
about $10. 

Applying  The  Statistics 

Combining  one  standard  deviation  and  the  mean 
(or  average)  amount  spent,  we  find  that  two-thirds 
of  the  weeks  you  spend  between  $41  and  $61  at 
the  grocery  store.  One-sixth  of  the  time  you  spend 
less  than  $41;  one-sixth  of  your  bills  are  more  than 
$61,  So,  if  you  budget  $61  for  groceries,  you'll 
have  enough  84  percent  of  the  time. 


16% 


68% 


16% 


less 

$10             ' 

$10 

more 

than 

$41 

one  standard    ' 
deviation       ' 

one  standard 
deviation 

than 

$61 

minus          ' 

plus 

$41 


$51 
(mean) 


$61 


If  you  want  to  be  sure  you'll  have  enough  in 
case  prices  rise,  you  might  want  to  use  two  stand- 
ard deviations.  By  adding  two  standard  devia- 
tions ($20)  to  the  mean  amount  ($51),  you  will 
find  that,  to  be  about  98  percent  sure,  you  should 
budget  $71  each  week. 

There  are  other  factors  to  be  considered,  of 

course,  such  as  vacations,  birthday  parties,  or 

visiting  relatives,  that  can  affect  your  food  budget. 

The  Statistics  program  does  not  take  these  kinds 

of  things  into  account.  But  it  does  give  you  a  tool 

which  takes  some  of  the  guesswork  out  of  every- 
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day  decision-making. 

The  Statistics  program  requests  input  of  the 
size  of  the  sample,  or  number  of  items  to  be  en- 
tered (line  410),  then  requests  the  values  of  the 
sample  measurements  (lines  500-550).  All  the 
statistics  referred  to  in  this  article  are  then  calcu- 
lated, that  is,  mean,  standard  deviation,  median, 
and  range. 

Lines  325-350  and  4900-5610  give  the  user  a 
thumbnail  sketch  of  the  information  to  be  calcu- 
lated and  a  description  of  each  of  the  statistics. 
While  the  sample  size  is  limited  to  100  for  the  VIC 
version  (other  versions  allow  up  to  300),  this 
should  be  more  than  adequate  in  most  cases. 

Error  Correction 

An  error  correction  routine  is  included  in  lines 
555-580  and  5900-6190.  This  provides  for  the 
change  of  any  entry  before  the  calculation.  While 
the  program  is  running,  a  delay  of  up  to  two 
minutes  will  be  experienced  while  the  program 
performs  several  sorts  on  the  data.  This  is  normal 
for  BASIC  and  may  be  longer  for  sample  sizes  in 
the  80  to  100  range  or  greater. 

Program  1  requires  at  least  3K  of  expansion 
memory  in  the  VIC  computer.  If  the  instructions, 
error  correction  routine,  and  headings  are  elimi- 
nated, the  program  will  run  on  an  unexpanded 
VIC.  Specifically,  the  following  lines  should  be 
deleted  if  the  program  is  to  run  without  memory 
expansion:  95-180,  325-350,  555-580,  4900- 
5610,  and  5900-6190. 

Further  reductions  can  be  made  by  reducing 
the  sample  size,  redimensioning  the  array  in  line 
90  to  the  new  sample  size  (SA),  and  changing  the 
value  of  100  in  line  420  to  the  new  maximum 
sample  size. 

Statistics  for  a  sample  of  100  readings  requires 
about  30-45  minutes  to  calculate  by  hand.  This 
program  requires  about  8-10  minutes,  including 
input. 

Program  1:  vie  statistics 

Refer  to  the  "Automatic  Proofreader"  article  before  t/ping  this 
program  in. 

90  DIM  SA(100)  .rem  185 

95  REM  GENERAL  INTRODUCTION       : rem  242 
100  PRINT  "fCLR}":P0KE  36879, 126 s PRINT  " 

{BLK)"  :rem  207 

110  FOR  K=l  TO  3:PRINT:NEXT  K     srem  147 
120  PRINT  TAB (4), •'"{4  DOWN HRVS} VIC  STATIS 

TICSlOFF}"  srem  208 

130  PRINT  TAB (9); "{DOWN} FOR"      : rem  249 
140  PRINT  TAB(2) ; "{DOWN} {RVS}N0N-STATISTI 

CIANSEOPF}"  srem  171 

180  FORK=1TO2000:NEXTK  : rem  98 

190  PRINT" {CLR}"  :rem  254 

200  PRINT  TAB(4);"(2  CKDWN}THIS  PROGRAM" 

:rem  108 
210  PRINT  TAB(3) f "CALCULATES  THE" t rem  188 
220  PRINT  "{2  spaces} FOLLOWING  VALUES" 

srem  230 


/.^#^^.-^.^.^.-\c3 


fA#  ^^r^^^^o^/-  .^#v  A-^^;^,.^ 


•      ^     #    #    o^    ^^    ^      ^ 


-V    ^  ^-'    <^^    ^-  „^    £ 


#  4'   -^ 


'y     *^    ^     xj-' 


O'     A'      Q'     -5.'     <^      -jT 


?  £'    /y    jf)' 


The'^mple^  hlfJrit^atti^  co^tebj 
system  fof  the  Commddore  ^| 


T/re  M/orW  Famous  Commodore  64, 


No  matter  what  your  business 
or  interest,  with  Superbase  64 
you  have  a  totally  flexible 
'record' system,  as  big  as  you 
want  it,  as  fast  as  you  need  it. 


Create  your  own 
formats,  enter  your  records, 
change  layouts  and  datafields. 

Superbase  gives  you   ' 
unrivalled  control  in  home  or  J 
office,  business  or 
professional  practice,  with  ' 
a  range  of  features 
including: 


3^^4' 


Precision  Software  (USA)  Inc. 

Suite  1100 

„      .  .        820.  Second  Avenue.  j 

Precision    New  York.  N.Y  10017 
Software    Tel:  (212)  490  1825  ' 


t  commodore 


230 

240 


PRINT 
PRINT 


260 
290 

300 
310 

320 

325 
330 

340 

350 

355 
370 


"FROM  DATA  YOU  INPUT:"  ; rem  123 
TAB(4);"{2  DOWN ) 1 .  MEAN" 

; rem  160 
STANDARD" 

:rem  193 

"DEVIATION"      :rem  166 
"{DOWN] 3.  MEDIAN": rem  3  5 

"{D0WN}4.  RANGE": rem  219 


250  PRINT  TAB(4); "{dOWN}2 


TAB ( 7 ) : 
TAB(4) 
TAB(4) : 


PRINT 

PRINT 

PRINT 

PRINT"{3  DOWN}  PRESS  [RVS1C[0FF}  TO  C 

ONTINUE"  :rem  20 

GET  a$:IF  Z?<>"C"  THEN  320    : rem  255 

REM  INSTRUCTION  REQUEST         : rem  9 

PRINT" {CLr3":P0KE2 14, 10 : PRINT: P0KE21 1 

,5:PRINT"DO  YOU  NEED"  : rem  99 

PRINT "{DOWN}  INSTRUCTIONS  (Y/N)?":G0S 

UB7010 

IF  Z$="Y"  THEN  GOSUB  5010 

REM  DATA  ENTRY 

PRINT" {CLr3eNTER  YOUR  DATA 


420 
430 

440 

450 

460 


480 
500 
520 


530 
550 
555 
560 

570 

580 

585 

587 

588 

589 


:rem  22 
:rem  244 

: rem  45 
ONE" 

:rem  199 

: rem  26 

:rem  55 
INPUT"ENTB 

:rem  26 
: rem  155 


380  PRINT"VALUE  AT  A  TIME," 

390  PRINT "THEN  PRESS  RETURN." 

410  POKE214, 10:PRINT:POKE211,0 
R  SAMPLE  SIZE";N 
IFN>100ORN<2THEN5  710 

PRINT:PRINT"{CLR] {4  DOWN }{ RIGHT) IF  YO 
U  MAKE  AN  ERROR"  :  rem  230 

PRINT" {2  DOWN} {RIGHT] CONTINUE  WITH  EN 
TRY. "  :rem  9 

PRINT" {2  DOWN} {RIGHT] YOU  WILL  BE  ABLE 
TO"  :rera  28 

PRINT" {2  DOWN} {RIGHT] CORRECT  LATER." 

;  rem  98 

470  PRINT" {2  DOWN] ERVS}{BLK} {4  RIGHT}PRES 
S  ANY  KEY {OFF}"  : rem  148 

GETZ$:IFZ$=""THEN480  s rem  141 

FOR  1=1  TO  N  ;rem  36 

PRINT " { CLR } " : POKE  214,ll!PRINT: P0KE2 1 1 
,0:PRXNT"DATA  ENTRY  # " ; I ; : INPUTR? 

: rem  130 
SA(I)=VALCR$)  :rem  173 

NEXT  I  :rem  34 

REM  ERROR  CORRECTION  REQUEST  : rem  46 
PRINT" { CLR ] ":POKE214,ll : PRINT: P0KE2 11 
,0:PRINT"DO  YOU  WISH  TO  MAKE"  : rem  68 
PRINT"ANY  CORRECTIONS (Y/N)?":GOSUB  70 
10  : rem  136 

IF  Z?="Y"  THENPRINT"{CLR}":GOTO6000 

; rem  80 
REM  CALCULATION  OF  MEAN  AND  STD.  DEVI 
ATION  :rem  250 

PRINT " i CLR  3 " : P0KE2 14 , 9 : PRINT : P0KE211 , 
5 : PRINT "{RVS 3  PLEASE  WAIT {OFF ]": rem  48 
POKE2 14, 11 : PRINT :POKE21 1,3: PRINT "STAT 
ISTICS  BEING"  :rem  151 

POKE214, 13:PRINT:POKE211,6:PRINT"CALC 

:rem  255 
N 


590 

600 
610 
620 
630 
640 
650 
660 
665 

670 
680 

690 
700 


ULATED" 
FOR  1=1  TO 
SUM=SUM+SAI 
NEXT  I 
MEAN=SUM/N 
FOR  1=1  TO 


N 


DFF=Df F+ ( SA ( I ) -MEAN ) T  2 

NEXT  I 

SDDEV=SQR(DFF/(N-1 ) ) 

REM  SORT  OF  DATA  INTO  NUMERIC 


FL=0 

FOR  1=1  TO  N-1 

IF  SA(I) <=SA(I+1) 

Q=SA(I) 


THEN  740 


: rem  45 
:rem  22 
: rem  31 

srem  104 
: rem  40 

:rem  25  5 
: rem  35 

: rem  146 
ORDER 
:rem  69 

;rem  187 

:rem  139 
: rem  41 
: rem  83 


710 
720 
730 
740 
750 
755 
760 
765 
767 
805 
810 
811 

812 

813 
814 
1290 
1310 

1320 

1330 

1340 

1350 

1360 

1370 
1375 

1380 

1480 

1490 
1495 

1510 


rem 

141 

rem 

177 

rem 

154 

:rem  35 

rem 

247 

rem 

182 

rem 

233 

rem 

147 

rem 

174 

rem 

243 

SACI)=SA(I+1) 

SA(I+1)=Q 

FL=1 

NEXT  I 

IF  PL=1  THEN  670 

REM  CALCULATION  OF  RANGE 

RG=SA(N)-SA(1) 

LR=SA(1} 

HR=SA(N) 

REM  CALCULATION  OF  MEDIAN 

IF  N/2  <>INT(N/2)  THEN  814      : rem  8 

IF  SA(N/2)=SA(N/2+l)  THEN  MDD=SA(N/2) 

: rem  191 

IF  SACN/2)<>SA(N/2+l)  THEN  MDD=(SA(N/ 

2)+SA(N/2+l))/2  :rem  202 

GOTO  1310  :rem 

MDD=SAClNT(N/2+l) )  : rem 

REM  PRINT  RESULTS  TO  SCREEN  : rem 
PRINT "{ CLR } CALCULATION  RESULTS " 

:  rem 
PRINT" **********************"• 

:rem 
PRINT  "{ DOWN } SAMPLE  SIZE";SPC(3) 

:  rem 
PRINT "(DOWN] MEAN  (X  BAR)"?SPC(2) 
(MEAN*10000+.5)/10000         : rem 


154 
219 
210 

138 

110 

N 
212 

INT 
78 
PRINT "{DOWN 3 STD.  DEV. " rSPC(5] fINTCSD 
DEV*10000+.5)/10000  :rem  46 

PRINT " { DOWN  3  MEDIAN " ; SPC ( 8 ) : INT ( HDD* 1 
0000+.5)/10000 
PRINT " { DOWN 3  RANGE " ; 
PRINT" {DOWN 3 LOWEST 


srem  25 

:SPC(9) rRG:rem  153 

SAMPLE"; SPC (1 ) ; LR 

: rem  206 
PRINT" {DOWN}HIGHEST  SAMPLE" ;HR 


POKE214,21:PRINT:POKE211,4 
{RVS 3  PRESS  ANY  KEY{0FF3"; 
GET  A5:IF  A?=""  THEN  1490 
REM  REQUEST  TO  CONTINUE  OR 


:  rem 
I  PRINT" 


81 


PRINT" {CLR} "i 
1,0; PRINT "DO 


5050 
5060 
5070 
5080 
5090 


5110 
5120 
5130 
5140 


srem  142 
: rem  191 
END 

: rem  96 
POKE214, 11: PRINT: P0KE21 
YOU  WISH  TO  PROCESS" 

: rem  113 
(Y/N)?":GOSUB  7010 

:rem  206 

THEN  POKE36879,27:PRINT" 

: rem  160 

; rem  180 

SUBROUTINE    : rem  35 

PRINT" {CLR} {DOWN} THE  MAXIMUM  NUMBER" 

:rem  3 
"OF  ENTRIES  YOU  CAN"  : rem  22 
"MAKE  IS  100.  THE"  : rem  243 
"MINIMUM  IS  2."  :rem  182 

"  { DOVJN  }*********************" 

: rem  29 
: rem  43 
rem  129 
:  rem  44 
: rem  74 


1520  PRINT"MORE  DATA 

1530  IF  Z$<>"Y" 
{CLR 3 " :END 
1540  CLR:GOTO  330 
4900  REM  INSTRUCTION 
5010 

5020  PRINT 
5030  PRINT 
5035  PRINT 
5040  PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"{DOWN} THE  MEAN  IS  THE 
"ARITHMETIC  AVERAGE" 
"OF  THE  NUMBERS  YOU" 
"ENTER.  " 

" { DOWN }*********************" 

: rem  34 
5100  PRINT  "{DOWN} STANDARD  DEVIATION" 

:rem  156 
"IS  A  MEASURE  OF  HOW" 
"WIDELY  YOUR  NUMBERS" 
"SPREAD  FROM  THE  AVG . " 
DOWN} {2  RIGHT} PRESS 


5150 
5160 


PRINT 
PRINT 
PRINT 
PRINT" {2 

MORE" 
GET  A5:XF 


A$<>"M"  THEN  5150 


: rem  10 
rem  210 
rem  122 
' M '  FOR 
; rem  57 
; rem  67 


PRINT  "{CLR} {DOWN} SINCE  THE  VALUES  Y 
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SEE  THE  LIGHT! 

Quality  Software  that  Outshines  the  Rest 

Programs  for  the  Commodore  64        £. 


Dat^iase  Management 
iterating  System 


The  BEST  data  base  management  tool 
for  ttie  collection,  arrangement  and  display  of 
alphanumeric  data 

A  unique  pattern  matching  and  searching  capabilities 
make  dMOS™  the  easiest  DB  system  avalable 
on  the  market. 
Features: 

•  Map  search  technique  to  achieve  a  "logical  AND", 
while  searching  between  fields.  • 

•  Display  records  found,  or  NOT  found  by  a  search. 

•  Rearrange  fields.  -^^   ^ 

•  Suppress  fields  and  field  titles.  ^^H   B 

•  Insert  short  (10  character)  text. 

•  Selectivefy  print  records.  .  $39'* 


SoftLoc™   ^ 

The  Program  Security  System 
Set  up  program  security  in  minutes. 
Lock  up  your  personal,  financial  or  business  records.  | 
3  types  of  protection: 

•  Re-encodes  program. 

•  Modifies  diskette  directory. 


Selectable  and  reassignable  7  digit 
access  code. 


J 


Missing  Key . 

A  reset  System 
Restores  your  BASIC  Program. 

After  programming  for  hours  you 
press  RUN  for  a  final  check  of  your  work  — 
the  computer  locks  up.  You  press  RUN,  STOP.  .  . 
nothing  —  you  press  RESTORE.  .  .  nothing  —  you 
look  for  the  missing  key  but  it  isn't  there.  You 
have  to  turn  off  your  computer  and  lose  hours  of  work!! 

Now  Add  the  Missing  Key™: 

•  Press  the  "Missing  Key^""  and  the  computer 
resets  itself  from  any  lockup,  and  your  BASIC 
program  is  restored. 

•  Load  and  run  the  program  included. 

•  Takes  nothing  away  from  your  computer,  neither 
memory  nor  a  plug-in  port. 

•  Attaches  to  your  C64  keyboard  or  any  other 
convenient  location. 

•  Will  not  void  your  CBM  warranty.  $29^^ 


iWH 


$2995 


and  announcing. 


Phone  Boss"'%K, 


Personal  Phone  Directory  Program 

Designed  to  store  and  organize 
your  personal  phone  listings. 


The  user  has  complete  control  of 
15  category  titles  and  entries. 


$29»5 


wi«--TH»   ^-rTTM"yTy>.- 


Software  by  SoftPeople  ■   Programs  for  tfie  Commodore  64  u    Conrjecting  People  with  Great  Ideas. 


Sof  tPeople  Inc. 

2042  Marshall  Ave.   St.  Paul,  MN  55104  (612)  644-1551 


Dealer  Inquiries  Invited 
1-800-447-3273 
Special  P.O.P  Packages 
&  Prices  Available 


5170 
5180 
5190 
5200 
5210 
5220 


OU" 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


5230  PRINT 


5240 
5245 


5250  PRINT  TAB(4) . 
5260  PRINT  TAB (4) , 

11 

5270  PRINT  TAB(4): 
5280  PRINT  TAB(4): 


jrera  97 

6020 

:rem  95 

6030 

:rem  52 

:rem  118 

6040 

:reni  49 

:rem  58 

6070 

:rem  203 

6075 

PACES }% 

;retn  99 

6080 

:rem  129 

" 

6090 

"ENTER  TEND  TO  FORM  A" 
"BELL  CURVE (NORMAL" 
"DISTRIBUTION),  THE" 
"STD.  DEVIATION  IS  A" 
"MEASURE  OF  THE  AREA" 
"UNDER  THE  BELL  CURVE. 

"{DOWN) NO.  OF  STD.{4  SPACES }% 
{SPACE}AREA" 
PRINT  "DEV. {+/-)" 

PRINT  " {4  SPACES} 

:rem  158 

" { DOWN ] 1 " r  TAB (1 6 )  ;  "  68  .  3 

jrera  142 

"{down} 2"; TAB (16)  ;  "95.5 

: rem  146 

"{DOWN|3"?TAB(16) ; " 99 . 7 

:rem  154 

"{DOWN] 4"; TAB (16) ;"99.9 

:rem  158 

5290  PRINT" {DOWN} {2  RIGHT} PRESS  'M'  FOR  M 

ORE";  rrem  105 

5300  GET  A5:IF  A5<>"M"  THEN  5300   : rem  61 

5430  PRINT"{CLR} { DOWN]******************* 

**"  trem  179 

5435  PRINT  "{D0WN}THE  MEDIAN  IS  THE" 

: rem  191 
5440  PRINT  "VALUE  AT  THE  MID-"  : rem  152 
5450  PRINT  "POINT  OF  YOUR  DATA."  trera  85 
5460  PRINT" {3  DOWN}PRESS  'M'  FOR  MORE" 

: rem  21 
5470  GET  A$:IF  A5<>"M"  THEN  5470   : rem  77 
5490  PRINT  "{CLR}[2  D0WN}THE  RANGE  IS  THE 
"  trem  35 

5500  PRINT  "DIFFERENCE  BETWEEN"  : rem  112 
5510  PRINT  "YOUR  LOWEST  DATA"  : rem  227 
5520  PRINT  "VALUE  AND  THE  HIGHEST .": rem  8 
5530  PRINT  "{D0WN}THE  RANGE  IS  A  QUICK-" 

:rem  132 
5540  PRINT  "AND-DIRTY  ESTIMATE"  : rem  135 
5550  PRINT  "OF  THE  SPREAD."  ; rem  3 
5560  PRINT  "{2  DOVJNlTHE  STD.  DEVIATION" 

J  rem  96 
5570  PRINT  "IS  MORE  RELIABLE."  ; rem  223 
5  580  PRINT  "{4  DOWN} {2  RIGHT} PRESS  'S'  TO 

START"  : 

5590  PRINT  "{5  RIGHT}THE  PROGRAM" 
5600  GET  A$:IF  A5<>"S"  THEN  5600 
5610  RETURN  : 

5700  REM  ERROR  TRAP  FOR  TOO  LARGE 

E  ! 

5710  POKE214, 10: PRINT: P0KE211, 18: PRINT" 

{4  SPACES}"  :rem  13  2 

5720  GOTO  410  : rem  156 

5730  REM  DISPLAY  CORRECTION  OPTIONS 

: rem  23  7 

5740  PRINT" {CLR) ": POKE214, 21 : PRINT : P0KE21 

1, 0 : PRINT "{RVS} {BLK}A=AMEND  T=TABLE 

{SPACE}Q=QUIT{0FF} "r :RETURN   ; rem  36 

5810  GET2  5 : IFZ$=" "0R(Z5 <> "A"ANDZ5<> "T"AND 

Z$<>"Q" )THEN5810  : rem  35 

5820  KL=0:IFZ$="T"THENKL=1:GOTO  6130 

trem  96 
5830  IFZ$="Q"THEN587  i rem  130 

5840  PRINT" {CLR}"  :rem  53 

5900  REM  ERROR  CORRECTION  SUBROUTINE 

trem  68 

6000  POKE214, 11:PRINT:POKE211,0:PRINT"REM 

EMBER  INCORRECT {4  SPACES } SAMPLE  #  (Y 

/N)?":GOSUB  7010  trem  10 
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6110 

6120 
6130 

6140 


6145 

6150 

6160 
6165 

6170 

6180 
6190 
7010 

7020 


IF2$="N"THEN6130  trem  157 

PRINT" { CLR} " : POKE214 , 6 : PRINT: P0KE211 
,1:INPUT"THE  SAMPLE  #"?EN$  trem  118 
EN=VAL  (  EN$  )  :  IFEN>NOREN<  lORENo  INT  (  EN 
)THEN  6030  trem  131 

POKE214,8:PRINT:POKE211, 1: PRINT "SAMP 
LE";EN  :rem  179 

POKE2 14, 10: PRINT :P0KE211, It  PRINT "VAL 
UE="?SA(EN)  trem  190 

POKE214,  12tPRINT:POKE2H,  1  :INPUT"YOU 
R  NEW  VALUE"; C:SA( EN )=C      trem  184 
POKE214, 14: PRINT :P0KE211,1: PRINT" 
{2  DOWN} MORE  CHANGES  ( Y/N) ?" :GOSUB  7 
010  :rem  136 

IFZ ?= " Y" THENPRINT " { CLR } " t GOTO  6000 

trem  123 
GOTO  587  trem  166 

G0SUB5 740 :POKE214,0: PRINT tP0KE2 11,0 

trem  150 
IFKL=0THENPRINT"THESE  ARE  THE  FIRST 
{3  SPACES} TEN  VALUES ."; K=l : GOTO  6150 

trem  47 
PRINT "THESE  ARE  THE  NEXT {4  SPACES }TE 
N  VALUES,"  trem  247 

POKE214, 3 tPRINTtP0KE21I,ltPRINT"ENTR 
Y"rSPC(5) ; "VALUE"  t rem  82 

FF=0:FORK=KTOK+9:FF=FF+1  trem  247 
IFK> 1 00THENK=K+9 :NEXT : G0T058  7 

trem  113 
POKE214, FF+5  t  PRINTS  P0KE211 , 1 s  PRINTK; 
TAB (11) ;SA(K)  trem  15 

NEXT  K  trem  89 

GOTO  5810  trem  215 

GETZ5:IFZ$=""OR{Z5<>"Y"ANDZ$<>"N")TH 
EN  7010  trem  201 

RETURN  trem  169 


Program  2: 64  statistics 


rem  128 

130 

trem  46 

trem  73 

140 

rem  172 

A  SAMPL 

180 

rem  184 

200 

210 


Refer  to  the  "Automatic  Proofreader"  article  before  lyping  this 
program  in. 

80  POKE53280,0:POKE53281,0        trem  189 

90  DIM  SA(300)  trem  187 

95  REM  GENERAL  INTRODUCTION       trem  242 

120  PRINT" {CLR} " t  POKE214, 10 : PRINT i P0KE2 II 
, 14 : PRINT " { RVS } STATISTICS { OFF } " 

; rem  147 
POKE214, 12: PRINTS P0KE211, 17 t PRINT" 
{RVS} FOR {OFF}"  trem  215 

POKE214, 14 s PRINT :P0KE211, 10 t PRINT" 
{RVS}NON-STATISTICIANS{OFF}"  trem  231 
FORK=lTO2000iNEXT  trem  23 

PRINT " { CLR } " : P0KE21 4 , 4 : PRINT : P0KE2 1 1 , 
14:PRINT"{CYN}THIS  PROGRAM"  : rem  165 
POKE214, 5:PRINTtPOKE211, 13 : PRINT"CALC 
ULATES  THE"  trem  219 

220  P0KE2 1 4 , 6  t  PRINT  t  P0KE2 1 1 , 1 2 : PRINT " FOLL 
OWING  VALUESt"  trem  213 

240  POKE214, 10tPKINT:POKE211 , 15 :PRINT"1 . 
{SPACE} MEAN"  trem  202 

2  50  POKE214, 12 : PRINT :P0KE211, 15 t PRINT "2. 
{SPACE} STANDARD"  trem  254 

260  P0KE214, 13 t PRINT tP0KE211, IS t PRINT "DEV 
lATION"  trem  245 

290  POKE214, 15 : PRINT t  POKE2 11 , 15 i PRINT "3 . 
{SPACE} MEDIAN"  trem  99 

300  POKE214,17tPRINTtPOKE211,15:PRINT"4. 
{SPACE} RANGE"  trem  29 

310  POKE214,22:PRINT:POKE211,10iPRINT"PRE 
SS  'C  TO  CONTINUE"  trem  108 

320  GETZ$:IFZ?<>"C"THEN  320       trem  255 

322  REM  INSTRUCTIONS  REQUEST       : rem  89 


325  SUM=0 : MEAN=0 : DPP=0 : SDDEV=0 : RG=0 

irem  152 
330  PRINT" ECLR}";POKE214, 12: PRINT: P0KE211 

,5:PRINT"DO  YOU  NEED  INSTRUCTIONS  (Y/ 

N)?"  trem  128 

340  GOSUB  7010  irem  223 

350  IF  Z$="Y"THEN  GOSUB  5010      : rem  244 
35  5  REM  DATA  ENTRY  : rem  45 

410  PRINT" {CLR}":POKE214, 10: PRINT: P0KE211 

,6:INPUT" ENTER  SAMPLE  SIZE";Ntrem  190 
420  IF  N>300ORN<=1THENFORI=1488TO1498:POK 

EI,32:NEXT:GOTO410  : rem  139 

425  PRINT" {CLR}"  : rem  255 

430  P0KE214,2:PRINTiPOKE211,l :PRINT"IF  YO 

U  MAKE  AN  ERROR,  CONTINUE  WITH" 

:rem  119 
440  POKE 2 1 4 , 4 : PRINT : POKE  2 1 1 , 1 : PRINT " DATA 

{SPACE}ENTRY.  YOU  CAN  CORRECT  LATER." 

: rem  75 

500  FOR  1=1  TO  N  :rem  36 

520  POKE214,9:PRINT:POKE211, 10 : PRINT"DATA 

ENTRY  #{4  SPACES} {4  LEFT 3 " ; I ;  : INPUTR 

$  : rem  96 

530  SA(I)=VAL(R$)  trem  173 

550  FORJ=1450TO1468iPOKEJ,32:NEXTJ:NEXT  I 

: rem  17 
555  REM  ERROR  CORRECTION  REQUEST   : rem  46 

560  PRINT " { CLR } " : POKE2 14 , 1 2 : PRINT : POKE2 1 1 
,2  ;rem  176 

561  PRINT"WISH  TO  MAKE  ANY  CORRECTIONS  (Y 
/N)?"  5  rem  2 

570  GOSUB  7010  :rem  228 

580  IFZ?="Y"THENPRINT"{CLR3";GOTO6000 

:rem  80 

585  REM  CALCULATION  OF  MEAN  AND  STD.  DEVI 

ATION  :rein  250 

587  PRINT" [ CLR} ":P0KE2 14, 11: PRINT :POKE2 11 
, 14 : PRINT " t  RVS } PLEASE  WAIT { GPP } " 

; rem  137 

588  POKE214, 13 : PRINT; POKE211 , 6;PRINT"STAT 
ISTICS  BEING  CALCULATED"      : rem  110 

590  FOR  1=1  TO  N  ! rem  45 

600  SUM=SUM+SA(I)  :rem  22 

610  NEXT  I  : rem  31 

620  MEAN=SUM/N  :rem  104 

630  FOR  1=1  TO  N  : rem  40 

640  DFF=DFF+(SA(I)-MEAN)T2        :rem  25  5 
650  NEXT  I  :rem  35 

660  SDDEV=SQR(DFF/(N-1) )  : rem  146 

665  REM  SORT  OF  DATA  INTO  NUMERIC  ORDER 

:rem  69 
570  FL=0  :rem  187 

680  FOR  1=1  TO  N-1  :rem  139 

690  IF  SA(I)<=SA(I+1)  THEN  740     : rem  41 
700  Q=SA{I)  :rem  83 

710  SA(I)=SA(I+1)  irem  141 

720  SA(I+1)=Q  :rem  177 

730  PL=1  irem  154 

740  NEXT  I  :rem  35 

750  IF  FL=1  THEN  670  :  rem  247 

755  REM  CALCULATION  OF  RANGE      : rem  182 
760  RG=SA(N)-SA(1)  : rem  233 

765  LR=SA(1)  srem  147 

767  HR=SA(N)  : rem  174 

805  REM  CALCULATION  OF  MEDIAN     : rem  243 

810  IF  N/2  <>INT(N/2)  THEN  814      :  rem  8 

811  IF  SA(N/2)=SA(N/2+l)  THEN  MDD=SA(N/2) 

: rem  191 

812  IF  SACN/2)<>SA(N/2+l}  THEN  MDD=(SA(N/ 
2)+SA(N/2+l))/2  trem  202 

813  GOTO  1310  :rem  154 


814  MDD=SA (INT (N/2+1 ) )  : rem  219 

1290  REM  PRINT  RESULTS  TO  SCREEN  : rem  210 
1310  PRINT " { CLR } " : P0KE2 1 4 , 3 : PRINT : P0KE21 1 

, 10:PRINT"CALCULATION  RESULTS" 

:rem  69 
1320  POKE2 14, 4 : PRINT ;P0KE21 1,9: PRINT"**** 

*****************"  :rem  146 

1330  P0KE214, 6 : PRINT :P0KE21 1,7: PRINT "SAMP 

LE  SIZE"rSPC(10) rN  :rem  122 

1340  POKE214,8:PRINT:POKE211 , 7     : rem  25 
1345  PRINT"MEAN{X  BAR) " r SPC ( 10) ;INT(MEAN* 

10000+.5)/10000  srem  113 

1350  POKE214, 10:PRINT:POKE211,7    : rem  67 
1355  PRINT"STD.  DEVIATION" ; SPC ( 7 ); INT ( SDD 

EV*10000+. 5)/10000  :rem  186 

1360  POKE214,12:PRINT:POKE211,7    ; rem  70 
1365  PRINT"MEDIAN" ;SPC(15 ) ; INT (MDD*10000+ 

.5)/10000  trem  59 

1370  POKE214, 14: PRINT :P0KE21 1,7: PRINT "RAN 

GE";SPC( 16) ; RG  : rem  110 

137  5  POKE214 , 1 6 : PRINT : P0KE2 1 1,7: PRINT " LOW 

EST  SAMPLE  VALUE" r SPC( 2 ) r LR  : rem  245 
13  77  P0KE214, 18: PRINT :P0KE21 1,7: PRINT "HIG 

HEST  SAMPLE  VALUE" ; SPC ( 1 )? HR  : rem  34 
1480  P0KE214, 22: PRINT :P0KE21 1,13: PRINT" 

[RVS] {YEL} PRESS  ANY  KEY{0FF} {CYN ) " 

:rem  193 
1490  GET  A?: IF  A$=""  THEN  1490  : rem  191 
1495  REM  REQUEST  TO  CONTINUE  OR  END 

:rem  96 
1510  PRINT" {CLR)": POKE 2 14, 12 : PRINT: P0KE21 

1,3  :rem  221 

1520  PRINT"WISH  TO  PROCESS  MORE  DATA  (Y/N 

)?"  :rem  73 

1530  GOSUB  7010  :rem  17 

1535  IFZ$="N"THENPRINT"ECLR}":END  ; rem  78 
1540  P0RI=1T0N;SA(I )=0:NEXT:GOTO  325 

:rem  180 
4900  REM  INSTRUCTION  SUBROUTINE  : rem  35 
5010  PRINT"{CLR} ":POKE214,3:PRINT:POKE211 

,6  : rem  175 

5020  PRINT"THE  MAXIMUM  NUMBER  OF  ENTRIES 

(SPACE) YOU"  :rem  12 

5030  P0KE214, 5 : PRINT :P0KE2 11,1; PRINT "CAN 

{space) MAKE  IS  300.  MINIMUM  NUMBER  I 

S  2  .  "  :rem  73 

5050  P0KE214 , 9: PRINT: P0KE211 , 5 : PRINT "THE 

{ space }MEAN  IS  THE  ARITHMETIC  AVERAG 

E"  : rem  137 

5070  P0KE214,ll:PRINT;POKE211,l:PRINT"OF 

{SPACE} THE  NUMBERS  YOU  ENTER." 

;rem  135 

5100  POKE214, 15;PRINT:POKE211, 5:PRINT"STA 
NDARD  DEVIATION  IS  A  MEASURE  OF" 

;rem  198 
5120  P0KE214, 17: PRINT: POKE211,l:PRINT"HOW 
WIDELY  YOUR  NUMBERS  SPREAD  FROM" 

; rem  104 

5130  POKE214, 19:PRINT:POKE211,l:PRINT"THE 

AVERAGE. "  :rem  91 

5140  PRINTTAB(9) ; "(2  DOWN) [RVS } (GRN} PRESS 

ANY  KEY  FOR  MORE [ OFF }( CYN ) "  : rem  50 

5150  GET  A$:IF  A$=""  THEN  5150    : rem  185 

5155  PRINT"[CLR}"  : rem  52 

5160  POKE214, 1: PRINT :P0KE2 11, 6: PRINT "SINC 

E  THE  VALUES  YOU  ENTER  TEND  TO" 

:rem  140 
5180  POKE214,3;PRINT:POKE211,l:PRINT"FORM 
A  BELL  CURVE  (NORMAL  DIST.),  THE" 

trem  193 
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5200  POKE214,5:PRINT:POKE21I,l : PRINT "STD. 
DEVIATION  IS  A  MEASURE  OF  THE  AREA" 

:rem  84 

5220  POKE2 14, 7: PRINT ;P0KE2 11,1; PRINT "UNDE 

R  THE  BELL  CURVE."  i rem  79 

5230  POKE214,9:PRINT:POKE211,5:PRINT"NO.O 

F  STD.DEV.";SPC(6);"%  AREA"   : rem  16 

5  245  POKE214,10!PKINT:POKE211,5:PRINT" 

";SPC{6);" ";rem  254 

5250  PRINTTABC10) 7 " { DOWN}l" ; SPC( 15 )  ;  "68.3 

:rem  201 
5260  PRINTTAB(10) r " { DOWN} 2"  ;  SPC(  15 )  ;  "95  .  5 

I  rem  205 
5270  PRINTTAB(10) f " { DOWN) 3" ; SPC( 15 ) ? "99 . 7 

trem  213 
5280  PRINTTAB{ 10 ) ; " { DOWN} 4" ; SPC{ 15 ) ; " 99 . 9 

:rem  217 
5290  PRINTTAB(9)  ;  "{2  DOVJN)  {RVS  }  [GRN}  PRESS 
ANY  KEY  FOR  MORE {OFF } {CYN} "  srem  56 
5300  GET  A$:IF  A$=""  THEN  5300    : rem  179 
5430  PRINT" fCLR}"  i rem  48 

5435  POKE214,3!PRINT:POKE211,5iPRINT"THE 
{SPACE} MEDIAN  IS  THE  VALUE  AT  THE" 

: rem  3  7 

5450  POKE214,5:PRINT;POKE211,l:PRINT"MID- 

POINT  OF  YOUR  DATA."         trem  222 

5490  POKE214 , 9 : PRINT: P0KE211 , 5iPRINT"THE 

{SPACE}RANGE  is  THE  DIFFERENCE  BETWE 

EN"  I  rem  205 

5510  P0KE214,11:PRINT:P0KE211, 1: PRINT "YOU 

R  LOWEST  DATA  VALUE  AND  THE  HIGHEST. 

:rem  253 

5530  P0KE214, 13: PRINT: P0KE211, 1: PRINT "THE 

RANGE  IS  A  QUICK-AND-DIRTY  ESTIMATE 

:rem  12 

5540  P0KE2 1 4,15: PRINT : POKE21 1 , 1 : PRINT "OF 

t SPACE} THE  SPREAD.  THE  STD.  DEVIATIO 

N  IS"  :rem  238 

5560  POKE214, 17: PRINT :P0KE2 11,1: PRINT "MOR 

E  RELIABLE."  : rem  247 

5580  PRINTTAB(4) J "{2  DOWN} { RVS} [GRN} PRESS 

'S'  TO  START  THE  PROGRAM { OFF } {CYN} " 

;  rem  21 
5600  GET  A$:IF  A$=" "OR ( A$ <> "S" )THEN  5600 

;rem  33 

5610  RETURN  : rem  172 

5810  GETZ$:IFZ$=""OR(Z$<>"C"ANDZ?<>"N"AND 

Z?<>"Q")THEN  5810  : rem  31 

5820  FL=0:IFZ5="N"THENFL=1:GOTO6130 

srem  80 
5830  IFZ5="Q"THEN587  : rem  130 

5840  PRINT" (CLR}"  srem  53 

5900  REM  ERROR  CORRECTION  SUBROUTINE 

: rem  68 
6000  POKE214, 12:PRINT:POKE211,3:PRINT"REM 
EMBER  INCORRECT  SAMPLE  #  (Y/N)?" 

: rem  140 

6010  GOSUB  7010  srem  15 

6020  IFZ$="N"THEN6130  srem  157 

6030  PRINT" tCLR}":POKE214,6:PRINT:POKE211 

,6:INPUT"WHAT  IS  THE  SAMPLE  NUMBER"; 

EN5  :rem  241 

6040  EN=VAL(EN$) : IFEN>N0REN<10REN<>INT( EN 

)THEN6030  :rem  131 

6070  P0KE2 14 , 8 : PRINT : POKE2 1 1 , 6  s  PRINT " SAMP 

LE";EN;SPC(5); "VALUE=" ; SA( EN)  :  rem  75 

6080  P0KE214, llsPRINT: P0KE211 ,6sINPUT"ENT 

ER  YOUR  NEW  VALUE" ;C  srem  8 

6090  SA(EN)=C  :rem  199 

6096  POKE214 , 14 : PRINT: P0KE211 , 6  s PRINT" ANY 

MORE  CHANGES  (Y/N)?"        srem  215 

58     COMPUTEI     Jutyl<?84 


6100 
6110 

6120 
6130 
6132 
6134 


GOSUB 
IF  Z9^ 


7010 
="Y"  THEN 


srem  15 

PRINT " [ CLR } " : GOTO6000 

srem  123 

GOT0587  :rem  166 

PRINT" [CLR}"  :rem  46 

POKE214, 21:PRINT:POKE211,0    srem  65 

PRINT"{RVS} {WHT} E2  SPACES ) C=CHANGE  D 

ATA {2  SPACES }N=NEXT  TABLE {2  SPACES }Q 

=QUIt{2  SPACES]  {off}",-       srem  198 

6137  POKE214,2sPRINTsPOKE211,5     srem  26 

6140  IFFL=0TH£NPR1NT"THESE  ARE  THE  FIRST 

[SPACE} TEN  VALUES. " :K=1 :GOTO6150 

srem  42 
6145  PRINT"THESE  ARE  THE  NEXT  TEN  VALUES. 

srem  247 

6150  POKE214, 6: PRINTS POKE211, 10:PRINT"ENT 

RY";SPC( 12), -"VALUE"  :reml79 

6160  FF=0:FOR  K=K  TO  K+9:FF=FF+1  srem  247 

6165  IFK>  300THENK=K+9  sNEXT : GOT0587 

srem  115 
6170  POKE214 , FF+7  s  PRINT: P0KE211 , 10 : PRINTK 
;TAB(27),-SA(K)  srem  72 

6180  NEXT  K  srem  89 

6190  GOTO5810  srem  215 

7010  GETZ$sIF  Z5=""OR(Z$<>"Y"ANDZ$<>"N")T 
HEN  7010  srem  201 

7020  RETURN  srem  169 

Program  3:  Atari  statistics 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in. 

:}  100  GRAPHICS  OsCLDSE  4«l:0PE|\t  #3,4,0 
,"K:":POKE  752 , I : SETCQLOR  2,0,0 

[E  1  10  DIM  SA  (300  ) 

C  !  20  REM  ■rt=<:i;J:TillW*a.i  ^^;JH»* *<■!.■£! 

m  \~i>  POSITION  15,6:?  "  ;.-%rf':^iiiifc**<riH"  :  PD 
SITION  18,10:7  "lilli"  :  POSI  TION  1 
1,14:?  "t:i»j:B^rf:h*.b**if.»TiT^" 

;e.  14  0  FOR  K  =  l  TO  300:  SA  :K  )  =0:  NEXT  K 

;J150  -^  "  CCLEAR3  "  :  FOSI  T  I  GN  14,  3s  7  "TH 
IS  PROGRAM" : POSITION  13,4:7  " CA 
LCULATES  THE" 5  POSITION  12,5:?  " 
FOLLOWING  VALUES" 

Fi  160  POSITION  9.6:?  "FROM  THE  EATA  Y 
OLS  I  NPUT  ;  " 

:!  170  POSITIOt'J  jA,?;-^  "1.  MEAN":  POSIT 
ION  14,11:?  "2.  STANDARD" : POSIT 
ION  17,12:7  "DEVIATION" 

fir-  130  POSITION  14,14:''  "3.  MEDIAN"  :P0 
SITIDN  14,16;'^  "4.   RANGE" 

LJ  190  POSITION  9,20:?  "PRESS  'C      TO  C 
ONT I NUE" 
BET  *tl,A:IF  A<>67  THEN  200 

Rem  )rjrf.in=fc*i^x:>-*^ii»i*ir^iligi 

SUM=0; MEAN=0; DFF=0: SDDEV=0: RG=0 
•>  "  ICLEARJ  "  sPOSITION  5,12:7  "Do 

you  need  instructions  (y/n)?" 
GOSUB  1350 
IF  A=89  THEN  GOSUB  830 

REM  omziMasiic 

■^  "  fCLEARl  ":  POSITION  9,11:7  "En 
ter  55imple  size  ";:INPUT  N 

W 280  IF  N:300  OR  N<=1  THEN  FDR  1=28 
TO  3a:POSlTIDN  1,11:7  CHR«(32): 
NEXT  I:GDTD  27  0 

Ed  290  7  "  {CLEAR:- ":  POSITION  5,2:7  "Ent 
er  data  one  value  at  a  time, 
C4  SPACES! then  press  return." 

EC  300  POSITION  5,6:7  "In  case  of  an  e 
rror,  continue  tc!C3  SF'ACESJente 
r  data.   You  will  be  able  to 
(.7     SPACES!  cor  r  ect  later." 

CD  310  FOR  1  =  1  TO  N 


0- 

200 

Hf 

210 

K 

220 

E!1 

230 

!IF 

240 

F-- 

250 

e; 

260 

Fl 

2'70 

H3  320 

OF  33  0 
LE  34  0 

GH  350 
m  360 


OP  37  0 
EF  3S0 

PE  390 

F.1  4  00 


CE  4  1  0 
Nl  4  20 
GH  4  30 
CH  440 
«A  4fl0 
.'h  460 
3ft  4  7  0 
.'L  480 

4  90 

5  00 
510 
520 
530 

■:  540 

CC  5  50 

Pf  5  6t;l 

Pfi  570 

5;  530 

K  590 

•11  600 

AE  6  10 

i:l  620 


;<!  630 

Hi-  640 

tij  650 

tP  660 

vfi  670 


■ill  68  0 
PC  690 

flf   70  0 

CP  7  1  0 
IH  720 

HB  7  30 

fS  740 

M  750 

80  760 
11  7  70 
OQ  780 

OJ  7  90 
HF  800 

HG  8  1  0 


POSITION  7,12:?  "DATA  ENTRY  tt  " 
;  I  ;  :  INPUT  SA 
SA (  I  >  =SA 

FOR  J=22  TO  3B:P0SIT10N  J, 12:7 
CHRt <32) : NEXT  J:NEXT  I 
REM  f^:Tini:»g.lrl:laf.**<n:W:IJaiJA;W1 
?  " {CLEAR} ": POSI TION  3,12:?  "Wi 
sh  to  mal-e  any  correctionB  (y/n 
)  ?" 

B03UB  1350 
[F  A  =  S'?  THEM  GOTO  1120 

REh  CgEIl['*«g:V*<n;M.lJia=f;i:M;i:i>»=luG: 

?  "  CCLEAR> ": POSITION  15,12:?  " P 

LEASE  WAIT" : POST TIDN  6,14:?  "ST 

ATISTICS  BEINB  CALCULATED" 

FOR  1=1  TO  N 

SUH  =  SUI-t  +  SA  (  I  )  :  NEXT     I 

MEAN  =  SLIM/N 

FOR      1=1      TO     N 

DFF  =  DFF+ (SA (  I  )  -MEAN)    -2: NEXT      I 

SDDEV=SQR(DFF/ (N-1) ) 

REM     i.-fil;>*Trrg»rf;!:«i>T:¥Tr 

FL  =  0 

FOR     :=1      TO     N-1 

IF     SA  (  I  >  <  =SA  M  +  I  >      THEN 

a=SA  •:  I ) 

SA  (  I  ) =SA  {  I  H  ) 

BA< I +1 ) =D 

FL=  t 

NEXT      I 

[F     FL.=  1 

REM 

RG  =  SA  iU) 

LR=SA ( ) ) 

REM 

IF     M / 2  . 

IF     SA(tM/2) 

A (N/2 ) 

IF     SA(N/2) 


J0 


THEN     480 


COLCUl-RTION     OF     Rft 


SA  (  I  ) 
HP=SA (N> 

I  M  T  (  N  .'  2  > 
SA  (N/; 


THEN  650 

*■  1  )   THEN  MDD  =  S 

THEN  MDr)  = 


:SA (N/2+1 > 

(SA(N/2)i-SA<:N/2+1)  )  /2 

GOTO  670 

MDD  =  SA  C  iriT  (N/2*l  '  > 

?  "  (C  LEAR"!  "  :  POS  I  r  1  D^4  10,2:'' 
LCULATION  RESULTS" : POSI TION 
;7  "*********«**««**»***»" 


"CA 
9  ,  4 


PnS I TION 
OSITION  : 
POSITION 

osiT I  ON  : 


4.6:'^  "SAMPLE  SIZE:":P 

:6,6:'^  N 

4.8;?  "MEAN  <  X  BAR  >  " : P 

6.8:?  INT (MEAN* 10000+0 


. 5) / 10000 

POSI TION  4,10:? 
" : POS! T ION  26,10 
0001  +  0  .  5  )  /  1  0000 
POS  I  T  ION  4,12:':' 
ON  26, 12: ?  HDD 
POSI TION  4,14:? 
N  26,14:?  RG 
PDSI  T  JCJN  4  ,  16;  "> 
VALUE" : POSI TION 
POS' TION  4,18:? 

VAL  UE"  :  POSI TION 
POSI T ION  13, 22: ? 


"LOWEST  SAMPLE 
26.16:?  L  R 
"HIGHEST  SAMPLE 

26, 18: ?     HR 

"l:Jr3abl.-l 


(y, 


"Wi 

n  )  ?" 


GET     tt  1  ,  A 

REM     kJJtlllarm^f.-^rf.TThffJTTrr 

?  " (CLEAR} ": POSITION  4,i: 

sh  to  process  more  data 

60SUB  1350 

IF  A=7a  THEN  GRAPHICS  0:END 

FOR  1=1   TO  N: SA ( I ) =0: NEXT  I : GOT 

D  220 


Sfi  8  20 
St  8  30 


i'H  84  0 


PB  350 


REM  ^■l'k%i;lir»**<»l.'»:^IJH:t.llt*4:r= 

•^  "  {CLEfiR>  "  :  POSI  TI  ON  5,5:?  "The 
(na>:imi.irn  number  of  entries  is 

{3  SPAr:EB1300-  while  the  minimu 

m  number  is  2 . " 

POSITION  5,9:''  "The  CiMUl  is  the 
arithmetic  average  of  the  numb 

ers  you  enter." 

POSITION  5,13;?  "The  ;^J;ri>J:1:i>^*i 
is  a  measureof  how  wid 
numbers  spread  -fromthe 


HJ  860 

EA  870 
EL  380 


«L  890 

PS  900 

NJ  9  10 

6N  920 

HF 

IS 

U  950 

HE  960 


10,21:?  "Press 


key  -f 


e  1  y  y  a  u  r- 

a  ^'  e  r  a  g  e  . 
POSIT  ION 
or  more" 
GET  «1 , A 

?  " CCL EAR> " iPDSITION  6,3:?  "Sin 
ce  the  values  you  enter  tend  to 

form  a  bell  curve  (Normal   dist 
.),   the  Std.  Deviation" 
POSITION  17, S:?  "  is  a  measure 
of  theC4  SPACESDarea  under  the 
bell  curve." 

POSITION  3,9t?  "No  of  Std.Dev.i 
+/•)": POSITION  3,10:?  " 


930 
940 


970 

9  80 


POSITION  29,9:? 

ON  29, 10; ?  " 

POSITION  4, 12; ? 
V. " : POSITION  31 
POSI TION  4,14:? 
V.  "  : POSITION  31 
POSITION  4, 16:7 
v.  "  ; POSITION  31 
POSIT  ION  4,18:? 
V.  "  : POSITION  31 
POSITION  10,21: 
or  more" 
GET  #1,A 

?  " cclear; 


7.  Area":  POS  I  TI 
Std. De 


"<+/-)  1 
12:?  "68 
"(+/-)  2 
14:?  "95 
"(+/-)  3 
16:?  "99 
"(+/->  4 
IB:?  "99 
'  "Press 


Std . De 
5  " 

Std . De 
7" 

Std. De 
9" 
1  key  f 


NJ  9  90 


:.H  i  00  0 


.P  10  10 


)n  1020 


: PC SI TION 
the  value 
your  data." 
10:':'  "The  UIiUMs  is     t 
between  your  1  owe 


and  the 
a  quiet;- 


t-.  i  Q  h 
an  d  - 


?  INT  (? 

jDDEV* 10 

EH 

10  30 

i- 

1040 

MEDIAN' 

'  : POSI TI 

CE 

1  050 

8C 

1060 

RANGE" : 

POSIT  ID 

EF  10  7  0 


1  030 
1090 


4,5:?  "The 
at  the  mid 
-  point  of 
POSITION  4, 
he  difference 
st  data  value" 
POSI T [ ON  25, ! ] ; 
est.   The  range 
dirty" 

?  "estimate  of  the  spread.   The 
standard    de'.'iation  is  more  r 
elisble  than  thB(3  SPACESSspre 
ad  .  " 
POSITION  10,20:"^  "Press  'S'   to 

start" 
BET  #1,A:IF  A:;:83  THEN  1030 
RETURN 

REM  n>*<dW:V^>t-lS:J=< «**<■!: MiJAJLECa 
?  "  tCLEARJ  ":  POSITION  l.SS:*?  "K 
py.^!M:W:»»T:trf:  (3  S P A C E S 1  (IBIiiyUBLl 
f:1.}^aC4  SPACES)  =jH.ti«Uu"  :  RETURN 
GET  #1,A:IF  A<>67  AND  A< >78  AN 
D  A<  >8  1  THEN  1070 
1280 
390 


IF 

IF 


100 
1  10 


A=78  THEN 
A=81  THEN 
'  tCL  EAR!  " 


REM 


ERROR     CORRECTION    3UBROUTX 


DP  1  120 


130 
140 
150 


?  "  CCLEAR>  " : POS IT  ION  3,12:?  "R 

emember  incorrect  sample  #     (y/ 

n)  ?" 

GOSUB  1350 

IF  A=78  THEN  1230 

->  "  iCLEARJ- ":  PDSI  TION  7,9:?  "Wh 

at  is  the  sample  #";: INPUT  EN 
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IF  K=78  THEN  470 
47^  BOSUB  1330 
430  REM  DATA  ENTRY 
490  CALL  CLEAR 
501?  PRINT  TAB  <3)  :  "ENTER  SAMPLE  SIZE 


530  PRINT  "CONTINUE  WTTH  DATA  ENTRY 
590  PRINT  'YOU  WILL  BE  ABLE  TO  MAKE 
601it  PRINT  "CORRECTIONS  LATER.":   :   : 


it  1160  IF  EN>N  OR  EN<  1  OR  EN<>INT(EN)   380  DFF  =  0 

THEN  1150  390  SDDEV=0 

FO1170  POSITION  7,11:7  "Sample  ";EN:P   400  RG  =  0 

OSITION  22,11:?  "Value  ":SA<EN   410  REM  INSTRUCTIONS  REQUEST 

'  420  PRINT  TAB  (6)  ;"  INSTRUCT  IONS   <Y/N 

t:Sil30  POSITION  7,13:?  "Enter  your  ne  )  -7  •• 

w  val  Lie"  :  POSITION  7,  14:  INPUT  C   430  PRIMT  :::::::::: 

:SA(EN)=C  44,3  GOSUB  217P 

CE1190  POSITION  7,19:?  "Any  more  chan   45^  ^p   r  k  <  >39 )  *  (  k  <>  73 )  THEN  440 

ges  <y/n)?"  ^  ^^^ 

fi)11200  GOSUB  1350 
DF1210  IF  A  =  89  THEN  1120 
JC  1220  GOTO  400 
iH  1230  GOSUB  1060:  POSITION  5,2:?  "Th« 

se  are  the  -first  ten  values:" 
P«  1240  POSITION  11,5:?  "  ENTRY  "  :  POS I T  I  "' 

ON  22,5:7  "VALUE"  510  INPUT  N 

Sn  1250  FOR  K=l  TO  10  520   IF   (  N  ^  300 )  +  ( N  ^  =  1  )  THEN  470 

JJ  1260  POSITION  12,K  +  7:?  K:POSITIDN  2   530  CALL  CLEAR 

4,K+7:7  SA(K):NEXT  K  540  PRINT  TAB ( 3 ) ; " ENTER  YOUR  DATA  0 

11L  1270  GOTO  1070  WE  VALUE':   : 

eH12Sj;t  POSITION  5,2:?  "These  ar  s     the    550  PRINT  "AT  A  TIME,   THEN  PRESS": 

ne>;t  ten  va  1  ues  :  C  DELETE>  "  :  I  F  K  . 

:;=300  THEN^ROSUB  1340  5^,0  PRINT  "RETURN.":   :   :   : 

50  1270  CT-8:FOR  I'-K  TO  K  +  9  570  pRi^y  TABO):"IF  YOU  MAKE  AN  ER 

M1300  IF  K>300  THEN  K  =  K  +  9:NEXT  K:GOT  pjQp,  „.   . 

O  400  ?   -   - 

tF1310  POSITION  12, CT:?  K:POSITION  24 

,CT:7  SAtK) 
FB  1320  CT  =  CT  +  1:NEXT  K 
Hi  1330  GOTO  1070 
JJ  1340  FOR  J=l  TO  10:PaSITION  12,J+7: 

?  "13  spaces:  ": POSIT  ION  24.J+7  "   ' 

=  ?  "C15  SPACEBV':NEXT  J  :  RETURN  "^'^^  '^''^'^'      T  AB  (  2  )  ;  "  PRESS  ANY  KEY  TO 

F;  1350  GET  #1,A:IF  A<>a9  AND  A<r  >7a  TH  COr-JT  I NUE  "  :   : 

EN  1350  ^-'^  GOSUB  2173 

KK1360  RETURN  ^30  FOR  1  =  1  TO  N 

640  CALL  CLEAR 

650  PRINT  "DATA  ENTRY  #";!; 

660  INPUT  R$ 

670  SA<I)=VAL  ;R*> 

680  NEXT  I 

690  REM  ERROR  CORRECTION  REQUEST 

700  CALL  CLEAR 

7  10  PRINT  TAB '3): "ANY  CORRECTIONS   ( 
Y  •■  N  )  '-'  " 

7  20  PRINT  :   ;   :   :   ;   ;   :   ;   :   ; 

730  GOSUB  2170 

740  IF  K< >89  THEN  770 

750  GOSUB  1300 

760  REM  CALCULATION  OF  MEAN  AND  9TD 
.   DEVIATION 

770  PRINT  TAB (9 ); "PLEASE  WAIT":   :   : 

780  PRINT  "STATISTICS  BEING  CALCULA 
TED" 

790  PRINT  ::::::::: 

300  FOR  1=1  TO  N 

810  SUM=SUM+SA ( I ) 

820  NEXT  I 

S30  MEAN=SUM/N 

840  FOR  1=1  TO  N 

12°'^"  350  DFF  =  DFF+ <SA  <  I  )  -MEAN)  --2 

360  NEXT  I 

370  SDDEV  =  SQR (DFF/  ( N-1  >  ) 

300  PRINT  :   :  ggg  ^^fJ^     SORT  OF  DATA  INTO  NUMERIC  O 

310  PRINT  TAE<4);"4.   RANGE"  RDER 

320  PRINT  :   :   :  B90  FL=0 

330  PRINT  TAB  •:2>  ;  "PRESS  ANY  KEY  TO     900  pOR  1  =  1   TO  N-1 

CONTINUE"  910  IF  SA  <  I  )  <  =  SA  f  I -i- I  >  THEN  960 

340  PRINT  :  920  D=SA ( I ) 

350  GOSUB  2170  730  S A ( I ) =SA ( I + 1 ) 

360  SUM=0  940  SA(I+1)=Q 

370  MEAN=0  950  FL=1 
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Program  4:  ti.99/4A  statistics 

100  DIM  SA(300> 

110  CALL  CLEAR 

120  PRINT  TAB < 10) ; "STAT ISTICS" 

130  PRINT  :   :   : 

140  PRINT  TAB < 13) ; "FOR" 

150  PRINT  :   :   : 

160  PRINT  TAB(7) ; "NON-STATISTICIANS 

170  PRINT  :::::: 

180  FOR  K=l   TO  400 

190  NEXT  K 

200  CALL  CLEAR 

210  PRINT  "THIS  PROGRAM  CALCULATES 

THE":   : 

220  PRINT  "FOLLOWING  VALUES  FROM  DA 

TA":   : 

230  PRINT  "YOU  INPUT:" 

240  PRINT  :   : 

250  PRINT  TAB(4);"3.   MEAN" 

260  PRINT  :   : 

270  PRINT  TAB(4):"2.  STANDARD  DEVIA 


?B0  PRINT 

190     PRINT  TAB<4);"3.   MEDIAN" 


960  NEXT  I 

1  4  6  0 

970  IF  Fl.=  !  THEN  990 

980  REM  rALCULATIQN  OF  RANGE 

14  70 

990  RG=SA  (N>  -  SA '  1  > 

1  0  0  0 

1 R=EA ( 1 ) 

1  490 

1  0  1  l!l 

HR=SA (N) 

1020 

REM  CALCIILATIOM  OF  MEDIAN 

I  4  90 

10  30 

IF  N.'2   •  INT  iN,'2)  THEM  1090 

1  0  4  (:i 

IF  ^A  (N.  2)  •  !SA 'N.'2  t  M  rilEN   1060 

1500 

1  050 

MnD=SA  (N.-  2) 

15  10 

1  060 

IF  S  ft  <  N  /  2  >  =  S  A  (  M  /  2  -<-  ^  *  T  H  E  N  ]>.■)  8  l^l 

1  !;t  7  0 

MDD=  '  SA  (N/  2  )  -t  RA  f  W,'2  +  1  >  )  ■■'2 

1  5  2  es 

1  08  0 

S30T0  1  1  !  0 

1530 

1  090 

MDD  =  SA  (  INT  <N/2+l  )  i 

1  100 

REH  PRIMT  RE?:iJL  TS  TO  SCREEN 

154  0 

1110 

CALL.  CLEAR 

15  50 

1  120 

PRINT  TAB (5) ; "CALCULATION  RESU 

1560 

LTS" :   : 

1  57  0 

1  I  3  i;l 

PRINT   "******»»** **»*tT******* 

**♦♦*■':   :   : 

1580 

!  1  4  0 

PRINT  "SAMP-_E  SI  ZE"  :  TAB  <  19)  ;  N: 

1590 

1  1  5  0 

PRIMT   "MEAN  i X     B AR )  " ;  T AE  (  1 9 >  ;  I 
r-4T  (  MEAN*  1  0000+  ,  5  )  /  t  0000  :   ; 

1600 

1  i  6  0 

PRINT  "SiO.   IlEV  AT  lOM"  ;  fAH  (  1  9  ) 
;  INT  <  SnnE  V  *  ] 0000  + .  5 1  '1 0000 :   : 

1610 

1  17.? 

PR  INT  "  MEI>I  mN"  ;  TAB  -.39)  :  INT  iMDD 
*10000  I-.  5)  /  10000:   : 

162  0 

1  180 

PRINT  "RAfJBE"  ;  TAB  (  i  91  :  INT  (RG*  1 
0000+ . 5> / ! 0000:   : 

1  630 

1  l'?^ 

PRINT  "(QWEST  V  Ai  UE  "  :  T  AB  U  <?  >  :  L 

R:   : 

PRINT   "HiepeST  VALiJE" -,  TAB  (  19  1  ; 

1  640 

1  2  00 

1  650 

HR:   :   :   : 

12  10 

PRINT  TAB (8> : "PRESS  ANY  KEY" 

1  660 

1  2  20 

GOSUB  2  170 

12  30 

REM  REQS.JEST  TO  CONTINUE  OR  END 

16  7  0 

1  2  40 

PRINT  "  WISH  TO  PROCESS  MORE  D 

ATA":   : 

1630 

1  250 

PRINT  T  A  B (  1 2 '  ;  "  ( Y / N 1  ^ " :   ;   :   : 

16  9  0 

1  260 

1  27  0 

1  29  0 
1290 

BDSUB  2  1  /0 

IF  h=7S  THEN  1320 

FOR  1=1  TO  N 

S  A  ■:  I  >  =  0 

1700 
1710 

1  720 
1  730 

1  30  0 
13  1-1) 
1320 

NEXT  I 
GOTO  360 
END 

17  4  0 

1  750 

13  30 

PRINT  TAB  (3):  "THE  MA>:iMUl-1  NUHB 
ER  OF  EN  "  :   : 

1  760 
1770 

13  4  0 

PRINT  "TRIES  VOii  CAN  MAKE  IE  3 
0  0  .  "  :   : 

1  780 
1790 

I  350 

PF;INT   "TMF  MTMTMnM  NUMBER  TS  2 

1800 

1360  PRINT  TAB(3);"THE  MEAN  IS  Th!E 

ARITII  ":   : 

1  3''0  PRINT  "METiC  AVERAGE  OF  THE  NU 

flBERS":   : 

138  0  PRINT  "YOli  FNTE'^-,":   :   : 

13^0  PRINT  TAB  (  3  1  :  "STAhiDARO  DEVTATI 

OH  T  >;  A "  ■:   : 

1400  PRINT  "MEASURE  OF  HOW  WIDELY  Y 

OUR":  : 

1410  PRINT  "NUMBER^  SPREAD  FROM  THE 

1420  PRINT  "AVER ARE.":   :   ; 
14  30  GD5I1B  2  160 
1  440  CAI  L  CLEAR 

1450  PRINT  T  AB  (3.>  ;  "EI  MCE  ^V.E     VALUES 
Ynu  HriTEP":   : 


1810 


PRINT  "TEND  TO  FORM  A  BEI  L  CUR 

VE":   : 

PRINT  '■<  NORMAL  D  T  STR  [  Rl  I  T  J  OM  > 

THE":   : 

PRINT   "BTD.   DEVIATION  IS  A  MEA 

SURE":   : 

PRINT  "OF  THE  AREA  UNDER  THE  B 

ELL":: 

PRINT  "CURVE. " :   :   : 

PRINT  TAB(4);"N0-   OF  STD. 

C4  SPACES?  7.  AREA" 

PRINT  T  AB ( 5  i  ;  " DE  V .  (  +  /-)" 

PRINT  TAB(41-,  " 

C4  SPACES] ":   : 

PRINT  TAB<8>5"!ril  SPACES! 69. 3" 
PRINT  TAB(3):"2C11  SPACESJ95.5" 
PRINT  TAB<8):"3tll  SPACES J  99. 7" 
PRINT  TAB(8);"4Cli  SPACES} 99. 9" 

GOSUB  2160 

PRINT  TAB<3);"THE  MEDIAN  IS  TH 

E  VAL  UE  AT  "  :   : 

PRINT  "THE  MID-POINT  OF  YOUR  D 

ATA. " :   :   : 

PRINT  TAB (31 : "THE  RANGE  IS  THE 

DIF  -"  :   : 
PRINT  "FERENCE  BETWEEN  YOUR  LO 
WEST":   : 

PRINT  "DATA  VALUE  AND  THE  HIGH 
EST.  "  :   : 
PRINT  "IT   IS  A  QUICK  AND-DTRTY 

PRINT  "ESTIMATE  OF  THE  SPREAD. 

"  :  * 

PRINT  "STANDARD  DEVIATION  IS  M 

ORE" :  : 

PRINT  "RELIABLE,  HOWEVER.":   : 

PRINT  TAB ( 3) : "PRESS  ANY  KEY  TO 

START" 
GOSUB  2  170 
RETURN 

REM  DISPLAY  CORRECTION  OPTION 
GOSUB  2  170 
IF  (K--  '^  67  >  *  <  K<  >78  )  *  <  K  <   >3  3  )  THEN 

1  720 
FL  =  0 

IF  K:  5  73  THEN  1780 
FL=  1 

GOTO  1980 
IF  K=ai  THEN  770 
REM  ERROR  CORRECTION  SUBR 
PRINT  "REMEMBER  INCORRECT  SAMP 
LE  #":   : 
PRINT  TAB ( 1 1 1 : " < Y/Ni   ?":   :   :   : 


GOSUB  2  170 

IF  i^"=73  TMEN  J '^80 

INPUT   "WHAT   IS  THE  SAMPLE  #  ? 

"  :  EN* 

EN=VAL (EN«) 

IF  (EN':=N>  +  <EH<  1  V  +  (  EN  '  M  NT  <  EN  )  ) 

THEN  1840 

PRINT  :   ; 

PRINT  "SAMPLE  ";  EN;  "  i:3  SPACEST" 

;  "VALUE= " ; SA  <EN) 

PRINT  :   : 

PRINT     "EiJTFR     YOUR     NEW     VALUE     : 


1910      INPUT     SA^ENt 


1820 

1S30 

I  840 

1850 

I860 

1  870 

1  38  0 

1  39  0 

1900 
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1^20  PRTNT  :::::: 

I93«  PRTNT  TAP(3);"AMY  MORF  CHANGES 

f  V  /  N  1  ?  "  :   :   ;   :   : 

1940  GOSUB  2170 

1950  CALL  CLEAR 

I960  IF  K=73  THEN  770 

1<?70  GOTO  1S00 

1980  IF  FL=1  THEN  2020 

1990  PRINT  "THESE  ARE  THE  FIRST  TEN 


2000  L=l 

2010  GOTO  2040 

2020  CALL  CLEAR 

203151  PRINT  "THESE  ARE 


THE  NEXT  TEN" 


2040  PRINT  "VALUES.":   :   : 

2050  PRINT  TAB  (5)  ;  "ENTRY"  :  TAB  (  1  5)  :  '■ 

VALUE":   J 

2060  FF=0 

2070  FOR  L=L  TO  L+9 

2080  FF  =  FF-t-l 

2090  IF  L>300  THEN  770 

2100  PRINT  TAB <5> ; L; TAB i 15) ;SA (L) 

2  110  NEXT  L 

2120  PRINT  :   : 

2130  PRINT  "C=CHANGE  DATA 

{3  spaces: N=NEXT  TABLE":   : 

2  140  PRINT  TAB < 3 2) : "Q=QUIT" 

2150  GOTO  1720 

2160  PRINT  TAB  (  3 );  "PRESS  ANY  KEY  FO 

R  MORE"; 

2170  CALL  t';EY<0,K,S) 

21B0  IF  S=0  THEN  2170 

2190  CALL  CLEAR 

2200  RETURN 

Program  5:  PC/PCjr  statistics 

100  DIM  SA(300) 

110  REM  GENERAL  INTRODUCTION 

120  WIDTH  40 

130  KEY  OFF 

140  CLS:LDCATE  9,15,0:PRINT  "STATISTICS" 

150  LOCATE  11, 18: PRINT  "FOR" 

160  LOCATE  13, 12:PRINT  "NON-STATISTICIAN 

S" 

170  FDR  K=l  TO  1500: NEXT  K 

180  CLS: LOCATE  5, B: PRINT"Thi s  program  ca 

Iculates  the";  LOCATE  7,  5:  PRINT"-f  ol  1  owi  ng 

■from  data  you  input:" 
190  LOCATE  10, 10:PRINT  "1.  Mean":LaCATE 
13, 1 0; PRINT"2.  Standard  Deviation" 
200  LOCATE  16,I0:PRINT  "3.  Nedi an " : LOCAT 
E  19, 10:PRINT"4.  Range" 
210  GOSUB  1190 

220  REN  INSTRUCTION  REQUEST 
230  BUM=0: MEAN=0: DFF=0: SDDEy=0:  RG=0 
240  LOCATE  13,4  :PRINT  "Do  you  need  in=t 
ructions  <Y/N)  ?" 
250  GOSUB  1160 

260  IF  Ht="Y"  OR  fl$="y"  THEN  GOSUB  730 
270  REM  DATA  ENTRY 

280  LOCATE  11,9: INPUT  "Enter  sample  size 
"  ;  N 

290  IF  N>300  OR  N<=1  THEN  230 
300  CLS: LOCATE  3, 4: PRINT" 1+  you    make  an 
error,  continue  with":LOCATE  5,4:PRINT"t 
he  with  data  entry.  You  will  be" 
310  LOCATE  7,4:PRINT"able  to  correct  it 
later, " 


320  FDR  1=1  TO  N: LOCATE  13, 22: PRINT  STRI 
NG$ (19, 32) : LOCATE  13, 1 0: PRINT"Data  entry 

#     -"STRING*  (4,  29)  I;  :  INPUT  R* 
330  SA( I >=VAL <R*) : NEXT  I 
340  REM  ERROR  CORRECTION  REQUEST 
350  CLS: LOCATE  12, 2: PR INT"Wi sh  to  make  a 
ny  corrections  (Y/N)7" 
360  GOSUB  1160 

370  IF  A*="Y"  OR  A*="y"  THEN  950 
380  REM  CALCULATION  OF  MEAN  AND  STD.  DEV 
lATION 

390  LOCATE  1 1 , 14: PRINT"PLEASE  WAIT" 
400  LOCATE  13, 6: COLOR  O, 7: PR INT"Stati sti 
cs  being  cal cul ated ": COLOR  7,0 
410  FOR  1=1  TO  N: SUM=SUM+SA ( I) : NEXT  I 
420  MEAN=SUH/N 

430  FOR  1  =  1  TO  N:DFF=DFF+(3A(I)-MEAN)--2: 
NEXT  I 

440  SDDEV=SDR(DFF/ (N-1 > ) 

450  REM  SORT  DF  DATA  INTO  NUMERIC  ORDER 
460  FL=0:FOR  1=1  TO  N-1:IF  SA(I><=SA<I+1 
)  THEN  480 
470  D=3ACI) :3A(I )=SA(I+i) : 3A < I+l ) =Q: FL=1 

480  NEXT  I 

490  IF  FL=1  THEN  460 

500  REM  CALCULATION  DF  RANGE 

510  RG=SA<N)-SA(1) : LR=SA < 1 ) :HR=SA(N) 

520  REM  CALCULATION  OF  MEDIAN 

530  IF  N/2<>INT(N/2)  THEN  570 

540  IF  bA(N/i;)  =SA(N/2+l  )   (HEN  ML>D=bH(N/k' 

1 

550  IF  3h(N/2)<>SA(N/2*1>  THEN  MDD=';3hCN 

/2)+SA(N/2+i) ) /2 

560  GOTO  590 

570  MDD=3A (INT (N/2+1) > 

580  REM  PRINT  RESULTS  TO  THE  SCREEN 

590  CLS:LDCATE  3, 10: PRINT"CALCULAT ION  RE 

SULTS" 

600  LOCATE  5, 4: PRINT "*******«** ********* 

610  LOCATE  7,  7:  PRINT  "Sample  Size";SPC',  10 

)  ;N 

620  LOCATE  9, 7: PR  I NT "Mean  ! X  earJ";SPC(9 

) ; I NT ( MEAN* 1 0000+ . 5  W 1 0000 

630  LOCATE  i  1 ,  7:PRINT'-Std.  Dev.  -  ;  SPC  i  12) 

; INT  <3DDEV*10000+.5) /lOOOO 

640  LOCATE  1  3,  7:  PRINT"f1edl  an  "  ;  3PC  a^i)  ;  MD 

D 

650  LOCATE  15,  7:PRINr"Ranye-';SPC(  J6»  ;RG 

660  LOCATE  1  7  ,  7:  PR  INT"L.  Dwe=  t  Sample  Vaiu 

e";SPC'.2)  ;  LR 

670  LOCATE  19. 7: PRINT"Hi ghest  Sample  Vai 

ue";SPC(l) ;HR: GOSUB  1190 

680  REM  REQUEST  TO  CONTINUE  OR  END 

690  LOCATE  1 2,  3:  PRINT"Wi  sh  to  proress  n:.-i 

re  data  (V/N)  ?"; GOSUB  1160 

700  IF  A*="N"  OR  A*=="n"  THEN  CLS:  END 

710  FOR  1=1  TO  N:SA!I)=0:NEXT  i:CLH:GOrD 

230 
720  REM  INSTRUCTION  SUBR 
730  LOCATE  3, 5:  PRINT  "The  ma::ifrum  number 

of  entries  you" 
740  LOCATE  5, 2:  PRINT  "can  male  is  300.  '^'n 
e  mini  mum  is  2. " 

750  LOCATE  9, 5: PRINT "The  mean  15  the  an 
thmetic  average" : LOCATE  1 1 , 2: PRINT-ci  th 
e  numbers  you  enter," 
760  LOCATE  1 5, 5: PRI NT"Standar d  deviation 

15  a  measure":  LOCATE  17, 2:  P"'lNT"o-f  how. 
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widely  your  numbers  spread  from" 

770  LOCATE  19, 2: PRINT"the  average." 

780  GDSUB  1170 

790  CLSiLOCATE  1 ,5; PRINT"Si nee  the  value 

s  you  enter  tend  to": LOCATE  3, 2: PRINT" fo 

rm  a  bell  curve  (normal" 

800  LOCATE  S, 2: PRiNT"di str i but i on ) ,  the 

standard  devi ati on" : LOCATE  7,2:PRlNT"is 

a  measure  o-f  the  sresi    under  the  bell" 

310  LOCATE  9,2:PRINT"curve.  ":LOCATE  11,9 

:PRINT"Nq.  of  Std.     7.    Area" 

820  LOCATE  13, 10: PRINT "Dev. (+/-)": LOCATE 

14,  9:PRINT" " 

B30  LOCATE  16, 14: PRINT" 1 "SPC ( 10) "68.3":L 
DCATE  IB, 14:PRINT"2"3PC< 10) "95. 5" : LOCATE 

20,  14:PRI!'JT"3"SPC(10)  "99.  7":  LOCATE  22,  1 
4 : PR I NT " 4 " SPC  f 1 0 ) " 99 . 9 " 
340  603IJB  1170 

aSO  CLS:LaCArE  4,5-.PRINT"The  median  is  t 
he  value  at  the  mi  d-'"  :  LOCATE  6.2:PRIWT"p 
Dint  of  your    data." 

860  LOCATE  9, 5: PRINT" The  range  is  the  di 
fference  between"  ;  LOCATE  1  1  ,  2;  PRINT  "\/our 

lowest  data  value  and  the  highest." 
B70  LOCATE  13, 2: PRI NT "The  range  is  a  qui 
ck-and-dirty  est i mate" : LOCATE  15,2:PR1N1 
"of  the  spread.  The  standard  deviation" 
B80  LOCATE  17, 2: PRINT " i =  a  more  reliable 

estimate  of  spread" : LOCATE  IV, 2: PRINT" t 
han  range. " 

390  LOCATE  23, 9: PR  I  NT "Press  any  key  to  5 
tart":GOSUB  1180: RETURN 
900  REM  DISPLAY  CORRECTION  OPTIONS 
910  ZS=INKEY*:IF  Z*=""  OR  (Z4<.>"c"  AMD  Z 
%<>"€"    AND  Z5<>"n"  AND  "i*<>"N"  AND  Z*<.>" 
q"  AND  Z*<>"Q")  THEN  910 

920  CLS:FL=0:IF  Z3.=  "n"  OR  2*="N-'  THEN  PL 
=l:6DTO  1060 

930  IF  Z»="q"  OR  ZS="Q"  THEN  390 
940  REM  ERROR  CORRECTION  SUBR 
950  LOCATE  12, 3: PRINT"RemembBr  incorrect 

sample  tt  (Y/N)  ''"iGOSUB  1160 
960  IF  A*="N"  OR  A$="r."  THEN  1060 
970  LOCATE  7, 6: INPUT  "What  is  the  sample 

number  " ; EN* 
980  EN='v'AL<EN*?  :  IF  EN>N  OR  EN<  1  OR  ENOI 
NT<EN)  THEN  970 

990  LOCATE  9, 6: PRINT"Sampl e" ; EN; SPC (5) ; " 
Value=";SA(EN) 

1000  LOCATE  12,6: INPUT"Enter  your  new  va 
lue" ;C 

1010  SA(EN)=C 

1020  LOCATE  16, 6: PR  INT" Any  more  changes 
(Y/N)  ?" 
1030  GOSUB  1160 

1040  IF  A«="Y"  OR  A$="y"  THEN  950 
1050  GOTO  390 

1060  CLS: COLOR  0,7: LOCATE  22, 2: PRINT"  C 
=CHAN6E  DATA  N=NEXT  TABLE  Q=QUIT  " : CO 
LOR  7,0 

1070  LOCATE  2,5 

lOBO  IF  FL=0  THEN  PR INT "These  are  the  fi 
rst  ten  val ues. " : K=i : GOTO  1100 
1090  PRINT"These  ^rE:    the  next  ten  values 

llOO  LOCATE  6, 10:PRXNT"Entry";SPC(12) : "v 

alue" 

1110  FF=0:FaR  K=K  TO  K+9;FF=FF+1 

1120  IF  K>300  THEN  CLS: GOTO  390 

1130  LOCATE  FF+7, 10: PRINT  K; TAB (27) ; 3A (K 

) 


1140  NEXT  K 

1150  GOTO  910 

1160  AS=INKEY*;IF  A*=""  OR  fA$<>"Y"  AND 

ft$<>"y"  AND  A$<>"N"  AND  Ai<>"n")  THEN  11 

60  ELSE  CLS: RETURN 

1170  LOCATE  24, 10:PRiNT"Pre5S  any  key  fo 

r  more"; 

HBO  A*=INKEYS:  IF  A»  =  ""  THEN  1180  ELSE  C 

LS: RETURN 

1190  LOCATE  22,7:  PRINT  "Press  any  key  t 

o  continue" 

1200  IF  INKEY«=""  THEN  1200  ELSE  CLS: RET 

URN 

Program  6:  Apple  statistics 


100 
110 


120 
130 
140 
150 

160 

170 

180 
190 
200 

210 

220 
230 
240 
250 

260 

270 
280 
290 

300 


310 

320 


330 
340 
350 

360 

370 

380 


HOME  :  DIM  SA(300) 

INVERSE  :  VTAE  9:  HTAB  17!  PRINT 

"STATISTICS":  VTAB  3  3:  HTAB  20:  PRINT 

"FOR" 

VTAB  17:  HTAB  13:  PRINT  "NDN-STAT 

ISTICIANS" 

FOR  K  =  1  TO  300:SA(K)  =  0:  NEXT 

K :  NORMAL 

HOME  :  VTAB  2:  PRINT  "THIS  PROGRA 

M  CALCULATES  THE  FOLLOWING:" 

VTAB  6:  HTAB  15:  PRINT  "1,  MEAN": 

VTAB  10:  HTAB  15:  PRINT  "2.  STAN 
DARD":  VTAB  11:  HTAB  IB:  PRINT  "D 
EVIATION" 

VTAB  15:  HTAB  15:  PRINT  "3.  MEDIA 
N":  VTAB  19:  HTAB  15:  PRINT  "4.  R 
ANGE" 

VTAB  23:  HTAB  10:  PRINT  "PRESS  'C 
'  TO  CONTINUE":  VTAB  23;  HTAB  17 
GET  2*:  IF  Z*  <   >  "C"  THEN  180 
REM   INSTRUCTIONS  REQUEST 
SUM  =  0:MEAN  =  0:DFF  =  0:SDDEV  =  0 
;RG  =  0 
HOME  :  VTAB  12:  HTAB  5:  PRINT  "DO 

YOU  NEED  INSTRUCTIONS  (Y/N)?":  VTAB 
12:  HTAB  35 
GOSUB  1180 

IF  Z*  =  "Y"  THEN   GOSUB  700 
HOME  :  REM   DATA  ENTRY 
VTAB  12;  HTAB  9:  INPUT  "ENTER  SAM 
PLE  SIZE  :";N«:N  =   VAL  (N«) 
IF  N  >  300  OR  N  <   =1  THEN   FDR 
I  =  26  TO  35:  VTAB  12:  HTAB  I:  PRINT 

CHR*  (32):  NEXT  :  GOTO  250 
HOME  :  PRINT  "IN  CASE  OF  AN  ERROR 
,  CONTINUE  WITH  THE   ENTRY." 
VTAB  2:  HTAB  8:  PRINT  "YOU  CAN  CD 
RRECT  LATER. " 
FOR  I  =  1  TO  N:  VTAB  12:  HTAB  10: 

PRINT  "DATA  ENTRY  #";!;:  INPUT  R 
*:SA(I)  =   VAL  (R«) 

FOR  J  =  24  TO  39:  VTAB  12:  HTAB  J 
;  PRINT   CHR*  (32):  NEXT  J:  NEXT 
I 

REM   ERROR  CORRECTION  REQUEST 
HOME  :  VTAB  12:  PRINT  "WISH  TO  MA 
KE  ANY  CORRECTIONS  (Y/N)?":  VTAB 
12:  HTAB  35 
GOSUB  1 180 

IF  Z*  =  "Y"  THEN   GOTO  970 
REM   CALCULATIONS  OF  MEAN  AND  STD 
.  DEVIATION 

HOME  :  VTAB  11:  HTAB  16:  PRINT  "P 
LEASE  WAIT" 

VTAB  13:  HTAB  8:  PRINT  "STATISTIC 
S  BEING  CALCULATED" 
FDR  I  =  1  TO  N;SUM  =  SUM  +  SA(I)i 

NEXT  I 
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390  MEAN  =  SUM  /  N 

400   FOR  I  =  1  TO  NsDFF  =  DFF  +  (SA(I) 

-  MEAN)  -^    2:  NEXT  I 
410  SDDEV  =   SQR  (DFF  /  CN  -  1)) 
420   REM   SORTING  THE  DATA 
430  FL  =  0:  FOR  I  =  ]  TO  N  -  1 :  IF  SAC 

I )  <   =  SA (I  +  1 )  THEN  450 
440  Q  =  SA(I):SA<I)  =  SA ( I  +  1 ) : SA (I  + 

1)  =  Q:FL  =  1 
450   NEXT  I:  IF  FL  =  1  THEN  430 
460   REM   CALCULATION  OF  RANGE 
470  HR  =  SA(N):LR  =  SA ( 1 ) : RG 


HR 


LR 


480 
490 

500 

510 

520 
530 
540 

550 
560 

570 

580 

590 

600 

610 

620 

630 

640 
650 


660 
670 
680 

690 
700 


710 
720 

730 
740 
750 


REM   CALCULATION  OF  MEDIAN 

IF  N  /  2  <   >   INT  (N  /  2)  THEN  5 

20 

IF  SA<N  /  2)  =  SA(N  /  2  +  1>  THEN 

MDD  =  SA(N  /  2> ;  GOTO  540 
MOD  =  (SA(N  /  2)  +  SA<N  /  2  +  D)  / 

2:  SOTO  540 
MDD  =  SAC  INT  <N  /  2  +  1 ) ) 

REM   PRINT  RESULTS  TO  SCREEN 

HOME  :  VTAB  2:  HTAB  10:  PRINT  "CA 

LCULATION  RESULTS";  VTAB  3:  HTAB 

9:  PRINT  "t»«»t«*««»t««»««»«««»" 

VTAB  6:  HTAB  6!  PRINT  "SAMPLE  SI2 

E";  TABC  28) ;N 

VTAB  S:  HTAB  6: 

R)";  TABC  28> ; 

.5)  /  10000 

VTAB  10:  HTAB  6:  PRINT  "STD.  DEVI 

ATION";  TABC  28);  INT  CSDDEV  «  10 

000  •(■  .5)  /  10000 

VTAB  12:  HTAB  6:  PRINT  "MEDIAN";  TABC 

28) ;MDD 

VTAB  14;  HTAB  6: 

2S);RG 

VTAB  16: 


PRINT  "MEAN  CX-BA 
INT  CMEAN  *    10000  + 


PRINT  "RANGE";  TABC 


HTAB  6: 


PRINT  "LOWEST  SA 
MPLE  VALUE";  TABC  2B);LR 
VTAB  18:  HTAB  6;  PRINT  "HIGHEST  S 
AMPLE  VALUE";  TABC  28) ;HR 
VTAB  23:  HTAB  10:  PRINT  "PRESS  'P 
'  TO  PROCEED":  VTAB  23:  HTAB  17 
GET  Z*;  IF  Z*  =  ""  OR  Z*  <       >    "P" 

THEN  630 
REM   REQUEST  TO  CONTINUE  OR  END 
HOME  :  VTAB  12:  HTAB  3:  PRINT  "WI 
SH  TO  PROCESS  MORE  DATA  CY/N>?";  VTAB 
12:  HTAB  34 
GOSUB  1180 

IF  Z*  =  "N"  THEN   HOME  :  END 
FOR  I  =  1  TO  N; SAC  I)  =0;  NEXT  I- 

SDTD  200 
REM   INSTRUCTIONS  SUBROUTINE 
HOME  ;  VTAB  4;  PRINT  "THE  MAXIMUM 

SAMPLE  SIZE  IS  300,  WHILE    THE 
MINIMUM  IS  2. " 

VTAB  10:  PRINT  "THE  MEAN  IS  THE  A 
RITHMETIC  AVERAGE  OF  THE  NUMBER 
S  YOU  ENTER. " 

VTAB  16:  PRINT  "THE  STANDARD  DEVI 
ATION  IS  A  MEASURE  OF   HOW  WIDELY 

YOUR  DATA  SPREADS  FROM  THE  AVE 
RAGE. " 

VTAB  22:  HTAB  12:  PRINT  "PRESS  'M 
'  FOR  MORE":  VTAB  22:  HTAB  19 
GET  Z*:  IF  Z*  =  ""  OR  Z*  <   >  "M" 

THEN  740 
HOME  !  PRINT  "SINCE  THE  VALUES  YO 
U  ENTER  TEND  TO  FORM  A  BELL  CURVE 

(NORMAL  DIST.),  THE  STD.  DEVIA 
TION  IS  A  MEASURE  OF  THE  AREA  UND 
ERTHE  BELL  CURVE." 


760 

770 
780 
790 
800 
810 
820 
830 
840 

850 

860 

870 

880 

890 
900 
910 

920 


930 
940 
950 
960 
970 


980 
990 
1000 


1010 
1020 
1030 

1040 


1050 
1060 
1070 
1080 


1090 
1100 
1110 


VTAB  8:  PRINT  "NO.  OF  STD.DEV.  C+ 
/-)":  VTAB  9:  PRINT  " 


VTAB  8:  HTAB  28:  PRINT  "7.    AREA";  VTAB 

9:  HTAB  28:  PRINT  " " 

VTAB  11:  HTAB  2:  PRINT  " C+/-)  1  S 

TD.DEV.";  TABC  30); "68. 3" 

VTAB  13:  HTAB  2:  PRINT  " C+/->  2  S 

TD.DEV.";  TABC  30); "95.5" 

VTAB  15;  HTAB  2:  PRINT  "(+/->  3  S 

TD.DEV.";  TABC  30); "99.7" 

VTAB  17:  HTAB  2:  PRINT  "(+/->  4  S 

TD.DEV.";  TABC  30); "99.9" 

VTAB  22:  HTAB  12;  PRINT  "PRESS  'M 

'  FOR  MORE";  VTAB  22:  HTAB  19 

GET  Z«;  IF  Z*  ==  ""  OR  Z«  <   >  "M" 

THEN  830 
HOME  :  VTAB  4:  PRINT  "THE  MEDIAN 
IS  THE  VALUE  AT  THE  MID-POINT  OF 
YOUR  DATA. " 

VTAB  8;  PRINT  "THE  RANGE  IS  THE  D 
IFFERENCE  BETWEEN  YOURLOWEST  DATA 

VALUE  AND  THE  HIGHEST.  THE   RANG 
E  IS  A  QUICK -AND  -DIRTY  ESTIMATE 
OF  THE  SPREAD." 
VTAB  11;  HTAB  13:  PRINT  "THE  STD. 

DEVIATION  IS  MORE   RELIABLE." 
VTAB  22:  HTAB  5;  PRINT  "PRESS  'S' 

TO  START  THE  PROGRAM":  VTAB  22s  HTAB 
12 
GET  Z«:  IF  Z*  =  ""  OR  Z»  <   >  "S" 

THEN  880 
RETURN 

REM   DISPLAY  CORRECTION  OPTIONS 
HOME  :  INVERSE  ;  VTAB  24:  PRINT  " 
C=CHANSE  DATA      N=NEXT  TABLE 

E=EXIT":  NORMAL  :  RETURN 
GET  Z»s  IF  Z*  =«  ""  OR  (Z«  <   >  »G 
"  AND  2*    <       >    "N"  AND  2«  <   >  "E" 
)  THEN  920 

IF  Z*  =  "N"  THEN  1120 
IF  Z*  =  "E"  THEN  350 
GOTO  970 

REM   ERROR  CORRECTION  SUBROUTINE 
HOME  I  VTAB  12:  HTAB  3i  PRINT  "RE 
MEMBER  INCORRECT  SAMPLE  «  CY/N)?" 
:  VTAB  12»  HTAB  36 

GOSUB  1180 

IF  Z«  =  "N"  THEN  1080 

HOME  :  VTAB  8;  HTAB  6:  PRINT  "WH 
AT  IS  THE  SAMPLE  NUMBER";:  INPUT 
E«:EN  =   VAL  CE«) 

IF  EN  >  N  OR  EN  <  1  OR  EN  <   >   INT 
CEN)  THEN  1000 

VTAB  11;  HTAB  6:  PRINT  "SAMPLE  " 
;EN;  TABC  22) ; "VALUE  "SACEN) 

VTAB  15:  HTAB  6:  PRINT  "ENTER  YO 
UR  NEW  VALUE";:  INPUT  C: SACEN)  = 
C 

VTAB  22;  HTAB  6:  PRINT  "ANY  MORE 

CHANGES  CY/N)?":  VTAB  22:  HTAB  2 
8 

GOSUB  1180 

IF  Z*  =  "Y"  THEN  970 

GOTO  360 

GOSUB  910;  VTAB  2:  PRINT  "THESE 
ARE  THE  FIRST  TEN  SAMPLE  VALUES:" 

VTAB  6:  HTAB  10:  PRINT  "ENTRY";  TABC 
25) ; "VALUE" 

VTAB  7:  HTAB  10:  PRINT  " ";  TAB ( 

25);  " " 

FOR  K  =  1  TO  10:  VTAB  K  +  8:  HTAB 
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Ill  PRINT  K;  TABt  26)jSA<K)l  NEXT 

K;  GOTO  920 
1120   VTAB  2:  PRINT  "THESE  ARE  THE  NEX 

T  TEN  SAMPLE  VALUES:";  VTAB  2:  HTAB 

3Bi  PRINT  "  " 
1130   IF  K  <  300  THEN   BDSUB  1170 
1140  L  =  9:  FOR  K  =  K  TO  K  +  9!  IF  K  > 

300  THEN  K  =  K  +  9:  NEXT  K;  SOTO 

360 
1150   VTAB  L:  HTAB  10!  PRINT  K;     TAB (  2 

6);SA(K) 
1160  L  =  L  +  1:  NEXT  K:  GOTO  920 
1170   FOR  M  =  9  TO  IB;  VTAB  li:  HTAB  10 

!  PRINT  "    ";  TAB(  26);" 

";  NEXT  M;  RETURN 


1180   GET  Z«:  IF  Z*  =  ""  OR  <Z«  < 
Y"  AND  Z*  <   >  "N")  THEN  220 
1190   RETURN 


>    " 


Program  7:  color  computer  statistics 

100  DIM  SA<300) 

110  REM  W^:i=4;JFP  ^■(:il<:IiM'I'**^JlL 

120  CL3:PRINT3  1 7 i ,  " ST AT  I  ST  I CS " : PR  I 

NT3  238,  "FDR" : PRINTS  295,"NON-S 

TATI STICl ANS" 
130  FOR  K=l   TO  1000: NEXT  K 
140  CLE:  PR  I  NTS  32,  "THIS  PROGRAM  CAL 

CULATES  THE<:5  SPACES  >  FOLLOW  I  NB  : 

150  PRINTS  139. "1.   MEAN":PRINT3  203 

,"2.   STANDARD" : PRINTS  238, "DEVI 

AT  ION" 
160  PRINTS  299,  "3.   MED  I  AN ":  PR  I  NTS  3 

63, " 4 .   RANGE" 
170  PRINTS  454, "PRESS  ' C      TO  CDNTIN 

UE" 
180  Z*=INKEY«: IF  Z4=""  OR  Z«  <>"C" 

THEN  180 
190  SUM=0:MEAN=0:DFF=0;SDDEV=0:RS=0 
200  CLSiPRINTS  224, "DO  VOU  NEED  INS 

TRUCTIONS  <Y/N)?" 
210  GOSUB  1050: IF  Z*="Y"  THEN  GOSUS 

600 
220  REM  BEDE  1;^:i<:V< 
230  CLS: PRINTS  229, "ENTER  SAMPLE  SI 

ZE";: INPUT  N*:N=VAL(N*1 
240  IF  N>300  DR  N<=1  THEN   230 
250  CLS:PRINT"    IN  CASE  OF  AN  ERROR 
CONTINUE-   VOU  CAN  CORRECT  LATE 

R.  " 
260  FOR  1=1  TO  N:PRINTS  224, "DATA  E 

NTRY  «";I;:INPUT  R* : S A ( I ) =VAL ( R 

*) 
270  FDR  J=242  TO  250:PRINTS  J , CHR* < 

32) : NEXT  J : NEXT  I 
280  REM  l^:1:Til::  W0:):3=€»**-TiTy  j:l^tlljai^i 
290  CLS:PRINTS  224, "WISH  TO  MAKE  CO 

RRECTIONS   (Y/N)7" 
300  SOSUB  1050; IF  Z*="Y"  THEN  GOSUB 

370 
310  REM  tii;1^.ilj^!liii<.3:bi  Ha  1=1  ^:T:  rffTTC  ai 

320  CLS: PRINTS  202, "PLEASE  WAIT": PR 

INTS  258, "STATISTICS  BEING  CALC 

ULATED" 
330  FDR  1=1  TO  N; SUM=SUM+SA ( I > : NEXT 

I  : MEAN=SUH/N 
340  FOR  1=1  TO  N: DFF=DFF+ ( 3A ( I ) -MEA 

N)  -2: NEXT  I :  SDDEV  =  SQR  <DFF/  (N-1  ) 

) 


350 
360 

370 

380 
390 
400 
410 
420 
430 

440 

450 
460 
470 


480 

490 

500 

510 
520 

530 
540 
550 
560 

570 

580 

590 
600 

610 


[mm 

N-l : IF 


SA  (  I ) <  =  S 


SA< I+1)=D 


REM  bTi1rh*<;tr'  g¥TT5 

FL=0:FOR  1=1  TO 

A(I+1)   THEN  380 

D=SA(I) :SA<I)=EA(I+1) 

:  FL=1 

NEXT  I: IF  FL=1  THEN  360 

REM     frf:lg.tllg:^**-j;     CES    ULlUM^ 

HR=SA(N) :LR=SA(i) :RG=HR-LR 

REM     riTiTg»iIlW:'h*<i]:     OS    ia^>X;LL 

IF  N/2  <>  INT(N/2)   THEN  450 

IF  SA (N/2) =SA (N/2+i )  THEN  MDD=J 

A (N/2> : GOTO  470 

MDD= (SA (N/2)  +SA  <N/2+l )  )  /2: GOTO 

470 

MDD=SA<INT<N/2+l) > 


REM  mm^i  un 


EKI  U-f^:Mgy 

CALCULATION  RESULT 


't***t**t**tttt*ttt 


•SAMPLE  SIZE";TAB(20 


CLS; PRINTS6. 
S"  : PRINTS37, 

PR  INTS  1 00,  ' 
)  ;  N 

PR I  NTS  164,  "MEAN  (  X-BAR>  " ; TAB (20 
)  ;  INT  (MEAN* 10000 +. 5)  / 10000 
PRINTS228, "STD. DEVIATION" ; TAB (2 
0) ;INT(SDDEV*10000+.5)/10000 
PR  I  NTS 29 2,  "MEDIAN" 5  TAB (20)  ; MDD 
PRINTS356, "RANGE" ; TAB (20) ;RS:PR 
INTS397,  "  <  "  ;LR;  "-"; HR;  " )  " 
PRINTS4S6, "PRESS  ANY  KEY" 

Z$=INKEY$:IF  Z*=""THEN  540  

REM  !:j^tlij=fc*i  HT  MO:fc*^:L'Jg  HS  E32E 

CLS:PRINTS224, "WISH  TO  PROCESS 

MORE  DATA   (Y/N)?" 

GOSUB  1050: IF  Z*="N"  THEN  CLS:E 

NO 

FOR  1  =  1  TO  N: SA  (  I > =0; NEXT  I : GOT 

O  190  

REM  fc^:i.-*i:lll.***«i;rf  rtiJ.l:Mli#j:ag 
CLS: PRINTS65, "THE  MAXIMUM  NUMBE 
R  OF  ENTRIES    IS  300.  THE  MINIM 
UM  IS  2. " 

PR1NTS193,  "THE  ISI=^;i:  IS  THE  AR I T 
HMETICtS  SPACES5AVERASE  OF  THE 
DATA. " 

'THE  b*rf:i:i.7;l:i>:  ^SSSSSSMi 
mr  IS  At4  SPACESJMEA5URE  OF  HOW 

WIDELY  YOUR  DATA  SPREADS  FROM 
THE  AVERAGE. " 

PRINTS453, " PRESS  ANY  KEY  FOR  MO 
RE" 

Z«=INKEY«:IF  Z*=""THEN  640  ■ 
CLS:PRINT"  SINCE  THE  VALUES  YOU 
ENTER  TENDTO  FORM  A  BELL  CURVE 
(NDRMALC4  SPACES3 D I  ST .  )  ,  THE  S 
TD. DEVIATION  IS  A  MEASURE  OF  A 
REA  UNDER  THE  BELL   CURVE." 

NO.  OF  STD.DEV.   (+/- 
AREA" 


620  prints: 


630 

640 
650 


660  PRINTS192, 

)  "  ;  TAB  (25)  ;  "  •/. 
670  PRINTS224, "-- 

-"  ; TAB (25) 
680  PRiNTS290, 

B (26) ; "68. 
690  PRINTS322, 

B (26) ; "95l 
700  PRINTS354, 

B (26) ; "99^ 
710  PRINTS386, 

B (26) ; "99. 
720  PRINT3453. 

RE" 
730  Z*=INKEY«:IF 


.  »l_,^ ___J 


(+/-)   1  STD.DEV. 


"(+/-)  2 

5" 

" (+/-> 

7" 

"  (  +  /  -  > 

9" 

"PRESS 


STD.DEV. 


3  STD.DEV. 


4  STD.DEV. 


TA 


TA 


TA 


TA 


ANY  KEY  FOR  MO 


Z«=""  THEN  730 
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740  CLS;  PRINT;  PRINTrPRINT"  THE  g|^.>i 
on  IS  THE  VALUE  AT  THE  MID-POIN 
T  OF  YOUR  DATA. " 

750  PRINTS  193,  "THE  IrirUMa  IS  THE  DI 
FFERENCE<:4  SPACES  >  BETWEEN  YDUR 
LOWEST  DATA  VALUE   AND  THE  HIBH 
EST,   IT  IS  A  QUICK-  AND-DIRTY  E 
STIMATE  OF  THE" 

760  PRINT3320, "SPREAD.  STD.  DEVIATI 
ON  IS  MORE   RELIABLE  THAN  RANGE 

770  PRINT3449,,  "PRESS  'S'  TO  START  T 

HE  PROGRAM" 
780  Z»=INKEY«:IF  Z«=""  OR  (Z*<>"S") 

THEN  780 
790  RETURN 
300    REM  r»yiii^dgiV<  l»ii]:j:j^^*<.;;  M:l*<tr 

810  cLSi pRrNT3480, '*s=H¥niiiaga 

f3  spaces:;  c:=cr^3i  tJ:i-}Wa  r5=m;»^r 

; : RETURN 
820  Z«=INKEY*:IF  Z*=""  OR  (Z^<>"C" 

AND  Z*<>"N"  AND  Z«<>"E")   THEN  8 

20 
830  IF  Z$="N"  THEN  990 
840  IF  Z4="E"  THEN  310 
850  GOTO  870 

860  REM  i^-TzTji;;  snaniaMini  .snjiirJ.Ht^TTTa 

870  CLS:PRINT3224, "REMEMBER  INCORRE 

CT  SAMPLE  <Y/N)?" 
880  GOSUB  1050:  IF  Z*="N"  THEN  960 
890  CLS: PRINTai65, "WHAT  IS  THE  SAMP 

LE  *"j: INPUT  E« : EN=VAL (E* ) 


900  IF  EN>N  OR  EN<  1  OR  ENOINTCEN) 

THEN  890 
910  PRINT3229, "SAMPLE  " ; EN ; TAB ( 20) ; 

"VALUE  ";SA<EN) 
920  PRINT3293, "ENTER  YOUR  NEW  VALUE 

'■:  PRINT"  {:5  SPACES^  ";:  INPUT  C«sS 

A (EN) =VAL  <CS ) 
930  PRINTS>453,  "ANY  MORE  CHANGES  CY/ 

N)  ?" 
940  GOSUB  1050; IF  Z$="Y"  THEN  870 
950  GOTO  1040 
960  GOSUB  810:  PRINTS>0,  "THESE  ARE  TH 

E  FIRST  TEN  VALUES; " 
970  PR1NT369,  "SaiI$5";TAB<17)  ;  "tEEHHE 

II 

980  I=1:F0R  K=101  TO  389  STEP  32sPR 
INT3>K,  I;  TAB  (17)  sSA<I):I  =  I  +  l;NEX 
T  K:GOTO  820 

990  PRINT30, "THESE  ARE  THE  NEXT  TEN 
VALUES":  IF  K300  THEN  GOSUB  10 
30 

1000  FOR  K=101  TO  389  STEP  32:IFI>3 
00  THEN  1020 

1010  PRINT3K, I ; TAB (17>;SA<I):I=I+1 

1020  NEXT  K:GOTO  820 

1030  FOR  K=101  TO  389  STEP  32:PRINT 
3K,"<3  spaces: "; TAB < 18) ; " 
{6  SPACES> ": NEXT  K:RETURN 

1040  RETURN 

1050  Z«=INKEY«: IF  Z*=""  OR  (Z*<>"Y" 
AND  Z*<>"N")  THEN  1050 

1060  RETURN  Q 


Sentinel  Color  Diskettes. 

Introdudno;  a  practical  new  time-saving  approach  to  help 
you  organize  data  storage.  Classify  information  by  diskette 
color:  for  example,  receivables  in  green,  payables  in  red, 
inventory  in  blue,  purchasing  in  orange,  and  so  on... 

Each  Sentinel  Color  Diskette  has  a  lifetime  guarantee;         Phone  toll-free  for  the  name  of  the  dealer  nearest  you: 
100%  certified  at  levels  which  meet  or  exceed  all  criteria     1-800-323-5005  (in  Massachusetts  1-800-323-5001). 
necessary  for  accurate,  error-free  read/write  operations.       — ^  #  ■ 
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M'FILE  For  The  Commodore  64 


Stan  Fenster 

M'FILE  is  a  set  of  data  manage- 
ment programs  for  the  Com- 
modore 64.  A  1541  disk  drive 
and  a  printer  are  required.  The 
manual  indicates  that  there's 
also  a  tape  version,  but  it  was 
not  tested  for  this  review.  Any 
serial  port  or  user  port  (RS-232 
or  parallel)  printer  can  be  used. 

The  package  contains  a  7- 
inch  X  9-inch  loose-leaf  manual, 
a  software  key,  and  a  program 
disk.  The  programs  on  the  disk 
can  be  copied  to  a  backup  disk. 
The  key,  which  plugs  into  Con- 
trol Port  1  {front  joystick  port),  is 
required  to  run  the  program.  The 
disk  contains  the  main  routines, 
a  SORT  program,  a  COPY  pro- 
gram, and  a  TEXT'MERGE  pro- 
gram. No  data  files  go  on  this 
disk.  Instead,  each  data  file 
occupies  a  separate  data  disk. 
This  might  discourage  the  use  of 
M'FILE  for  small  jobs. 

The  manual  is  well  written 
and  generally  easy  to  follow, 
though  more  examples  would 
have  been  helpful.  However, 
the  menus  within  the  program 
lead  the  user  so  effectively 
through  all  the  necessary  steps 
that  you'd  rarely  need  to  refer 
to  the  manual. 

Major  Characteristics 

Data  is  stored  on  the  data  disk, 
not  in  RAM.  This  allows  for 
either  1000  records  of  125 
characters  each  or  500  records 
of  250  characters  each.  Each 
record  is  limited  to  32  fields  of 
no  more  than  78  characters 


each.  Fields  can  be  either  nu- 
meric or  alphanumeric.  All 
alphabetic  characters  are  in 
uppercase,  but  a  new  version 
which  supports  both  upper-  and 
lowercase  has  been  announced. 
Numeric  fields  can  be  used  in 
formulas  allowing  arithmetic 
calculations  among  fields. 
Within  formulas,  an  if-then  syn- 
tax is  available.  Up  to  ten  user- 
defined  interfield  formulas  can 
be  used. 

Selection  of  records  for  up- 
dates, reports,  or  text  merges 
can  be  made  using  any  or  all 
fields.  One  field  is  designated  as 
the  keyfield.  Searches  using  the 
keyfield  are  especially  fast,  and 
offer  extensive  comparison 
capabilities  (  =  ,  <,  >,  <=,  >  =  , 
or  <>)  between  fields. 

Report  formats  are  very 
flexible,  and  up  to  15  such  for- 
mats can  be  saved  for  reuse 
later.  Fields  can  be  printed  in 
columns  or  horizontally,  and 
special  ASCII  control  codes  can 
be  sent  to  the  printer. 

Main  Menu  Options 

The  main  menu  gives  the 
following  options: 

1.  Access  a  File. 

2.  Print  a  Report. 

3.  Create  a  File. 

4.  Sort  a  File. 

5.  Exit. 

To  get  started,  select  Create 
a  File.  Next,  format  a  data  disk 
and  set  it  up  to  receive  the 
record  specifications.  After  a 
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title  is  entered,  the  program 
leads  the  user  through  the  steps 
of  choosing  field  names,  types, 
sizes,  and  decimal  settings. 
When  setup  is  complete,  it  is 
stored  on  disk,  and  the  user 
proceeds  to  Access  a  File. 

Access  a  File  is  used  to 
enter  new  data,  to  change  or  in- 
spect data,  or  to  add  fields  and 
formulas. 

Print  a  Report  allows  the 
user  to  create  a  new  report  for- 
mat, to  call  up  a  saved  report 
format,  to  add  temporary  fields 
or  formulas,  to  display  totals  on 
the  screen,  or  to  set  printer  con- 
trol characters.  After  a  report 
format  is  chosen  and  edited  as 
desired,  it  may  be  saved.  The 
report  is  then  printed.  Many  op- 
tions are  available  in  setting  up 
the  print  format. 

Use  Of  Function  Keys 

The  screens  displayed  by 
M'FILE  are  either  menus  or  data 
screens.  Data  screens  have  a 
line  at  the  bottom  indicating  the 
functions  available  by  use  of 
function  keys.  These  generally 
include  fl  =  ACCEPT,  f3  = 
DELETE,  and  f5  =  EXIT.  On  a 
data  entry  or  modification 
screen,  f7  =  ADD/SUB  (modify 
a  numeric  field)  also  appears. 

When  a  record  selection  is 
made  by  record  number,  the  f2 
key  advances  the  pointer  to  the 
next  sequential  record,  and  f4 
moves  to  the  previous  sequen- 
tial record.  Note  that  if  records 
have  been  deleted,  there  may  be 
missing  record  numbers.  When 
a  record  selection  is  done  by 
searching,  the  f8  key  advances 
to  the  next  matching  record. 
However,  none  of  these  even- 
numbered  function  keys  is  in- 
dicated in  the  screen  prompts. 

Sorting 

Sorting  is  done  by  a  separate 
program  (SORT)  loaded  from 
the  main  menu.  Sorting  is  per- 
formed on  any  single  field,  in 
either  ascending  or  descending 
order.  The  result  is  a  new, 
sorted  data  file  on  ^-he  disk.  The 


exit  from  SORT  is  to  the  BASIC 
environment,  not  back  to  the 
main  menu.  To  continue  proc- 
essing— for  example,  to  prepare 
a  report — the  user  must  load 
and  run  M'FILE  again. 

Text  Merging 

A  separate  program, 
TEXT'MERGE,  is  provided  to 
create  files  which  can  be  used 
by  most  major  word  processing 
programs.  The  selection  menu 
lists  Quick  Brown  Fox, 
WordPro,  EasyScript,  Script  64, 
Totl  Text,  Busiwriter,  Paper 
Clip,  and  Other.  Other  is  in- 
tended to  work  with  any  word 
processors  which  can  read 
sequential  files.  I  found  that  I 
could  not  generate  mailing  lists 
and  labels  in  the  format  I 
wanted  with  the  M'FILE  report 
generator.  However,  using 
TEXT'MERGE  in  conjunction 
with  my  word  processor 
(EasyScript),  it  was  easy  to  get 
single-column  labels.  Additional 
columns  are  not  supported  by 
M'FILE  but  I  was  able  to  do  it 
with  word  processor  manipula- 
tions— but  only  because  my 
printer  has  reverse-line  motion. 

Copy  Program 

A  separate  program,  COPY,  is 
provided  to  make  backup  copies 
of  M'FILE  data  disks,  using  a 
single  disk  drive.  The  file  title  of 
the  new  disk  can  be  different 
from  the  old  title.  As  with  other 
backup  programs,  frequent  disk 
swaps  are  required  to  make  the 
backup  disk.  COPY  also  allows 
the  user  to  copy  the  format 
only.  This  feature  is  useful  for 
expanding  the  file  onto  a  second 
disk,  or  creating  a  new  file  with 
the  same  format. 

Other  Features  And 
Considerations 

Another  capability  of  M'FILE  is 
a  screen  dump  to  the  printer  at 
almost  any  time,  by  pressing  the 
British  pound  key. 

When  the  file  structure  is 
accepted  by  the  user,  the  file 
character  limit  is  set  at  125  if  no 


more  than  125  characters  are  re- 
quired; otherwise,  the  limit  is 
250  characters.  After  this,  the 
original  field  names  and  struc- 
tures can't  be  changed,  although 
new  fields  can  be  added  later, 
as  long  as  the  maximum  charac- 
ter limit  (125  or  250)  is  not 
exceeded. 

In  report  mode,  additional 
temporary  numeric  fields  can  be 
added.  Their  contents  are  cre- 
ated by  using  formulas  involv- 
ing other  numeric  fields.  The 
menu  allows  the  user  to  add 
alphanumeric  fields,  but  there  is 
no  way  to  enter  data  into  them. 

Reports  have  an  optional 
total  line  at  the  end.  However, 
the  number  of  characters  for 
each  numeric  field  is  the  same 
for  the  totals  as  for  individual 
entries.  This  leads  to  possible 
truncation  in  a  total  if  extra 
digits  would  have  been  gen- 
erated. 1  had  this  problem,  and  I 
found  a  solution  by  creating  a 
temporary  field  equal  to  my 
original  field,  but  with  extra 
width.  Then  1  used  the  new 
field  instead  of  the  old  one  and 
got  a  correct  total.  Of  course,  it 
would  have  been  easier  if  the 
original  field  had  been  wider, 
but  I  didn't  know  that  at  the 
time.  A  related  feature  is  Screen 
Totals.  This  allows  display  of 
totals  on  the  screen,  but  has  the 
same  width  limitation  as  printed 
totals. 

Because  the  main  data  is 
kept  on  the  data  disk,  there  are 
frequent  disk  reads  and  writes. 
In  particular,  when  an  exit  is 
made  from  the  file  access"  mode 
after  changes  are  made,  the  data 
file  on  disk  is  rewritten,  which 
takes  a  few  minutes.  When  the 
user  enters  a  new  mode,  a  read 
is  required,  even  if  a  write  was 
just  performed. 

Field  selection  and  search- 
ing are  easy  and  fast.  Sorting  on 
keyfields  is  fast  too,  but  limited 
in  speed  by  disk  accesses.  Other 
sorts  are  slower. 

Even  with  the  limitations 
discussed  above,  M'FILE  is  a 
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powerful  and  versatile  data 
management  system. 

M'FILE 

by  m'soft 

Double  E.  Electronics,  Inc. 

12027  Pacific  Street 

Omaha,  NE  68154 

(402)  334-7870 

$79.95  © 

AtariWriter 

John  Heilborn 

A  few  years  ago.  Atari  intro- 
duced a  program  called  Atari 
Word  Processor.  It  was  a  fairly 
expensive  word  processor  that 
had  an  enormous  number  of 
functions  and  features.  It  was 
versatile  and  almost  totally 
menu-driven.  In  other  words, 
while  you  were  using  it,  the  com- 
puter displayed  a  menu  of  pro- 
gram functions  at  the  top  of  the 
screen. 

Unfortunately,  if  you  de- 
cided you  wanted  to  do  some- 
thing that  was  on  another,  un- 
displayed,  menu  you  would 
have  to  know  how  to  find  the 
menu  (the  menus  were  nested 
and  could  be  accessed  by  press- 
ing different  options)  and  would 
have  to  go  through  ail  of  the 
other  menus  to  get  there. 

The  old  word  processor  was 
very  versatile,  but  was  also  rather 
cumbersome. 

A  New  Generation 

Today  there  is  a  new  Atari  word 
processor  called  AtariWriter.  It's 
obviously  a  descendant  of  the 
original  Atari  Word  Processor,  but 
all  of  the  "fat"  has  been  trimmed . 
AtariWriter  is  easy  to  use  (no 
menus  to  wallow  through),  easy 
to  understand  (all  of  the  com- 
mands are  logically  accessed), 
and  very  responsive  (when  you 
press  a  key,  the  computer  re- 
sponds quickly). 

One  additional  feature  that 
makes  this  program  far  better 
than  the  old  one  is  that  it  is  in  a 
cartridge,  not  on  disk,  and  it  will 
work  with  as  little  as  16K  mem- 
ory. You  can  use  it  with  am/  of 
the  existing  Atari  computers  and 


MODEL  S-100 

COMPUTER 

CHECK  CARRIER 


MAKES  YOUR  PERSONAL  COMPUTER 
EVEN  MORE  USEFUL  AND  VERSATILE! 


Eliminates 

the  Need 

for 

Expensive 

Computer  ^^ 

Checks  \  ^^^  ?"■"*"  '*«oDicn™ 

Allows  quick  computer  processing 
of  conventional  checks. 
Heavy  vinyl-S"  wide. 
Holds  oiglit  personal-size  chocks. 
For  adjustable,  tractor-type 
pririters,  Wction-type  printers  or 
regular  typewriters. 
Comes  Willi  BASIC  program 
to  format  checks.  Can  be  used 
as  a  sub-routine  in  your 
present  program. 
Ideal  fer  small  to  medium-size 
businesses,  tool  (Medel-20a 
holds  six  commercial-size  checks) 

Send  check  or  money 
order.  Ohio  residents 
add  9'/:%  sales  tax. 
Allow  two  weeks  tor 
delivery.  Be  certain  to 
specify  model.  Visa  and 
MasterCard  accepted. 
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you  don't  need  to  have  a  disk 
drive  or  a  tape  drive.  Of  course, 
if  you  run  the  word  processor 
without  a  device  to  store  your 
text,  you  will  lose  it  after  writing 
it.  However,  for  people  just 
using  the  system  as  an  enhanced 
typewriter,  this  is  enough. 

Functions  And  Features 

Although  I  am  used  to  writing 
on  an  expensive  professional 
word  processing  system,  Atari- 
Writer  has  all  of  the  features  that 
I  would  normally  use  on  the 
larger  system.  I  wrote  this  article 
on  AtariWriter  and  found,  in 
fact,  that  AtariWriter  has  some 
very  nice  extra  features  not  usu- 
ally found  on  other  systems, 
such  as  a  single  toggle  function 
which  allows  you  to  switch  dis- 
played characters  from  upper-  to 
lowercase  automatically.  The 
program  has  more  features  than 
I  can  cover  in  a  review,  so  I'll 
just  give  you  the  highlights. 

When  you  turn  AtariWriter 
on,  it  displays  the  Atari  logo 


for  a  few  moments  and  then 
switches  to  a  menu  of  functions. 
The  functions  are: 

•  [CjREATE  File  is  used  to 
begin  writing  a  new  file.  If  you 
have  some  text  in  memory  left 
over  from  another  file  and  you 
select  this  option,  the  computer 
responds  by  asking  you  if  you 
wish  to  delete  the  file  in  memory. 
This  way  you  will  not  acciden- 
tally erase  a  file  that  you  want  to 
SAVE.  If  there  is  no  file  in  mem- 
ory, the  computer  simply  goes 
to  the  editing  page. 

•  [D]ELETE  File  erases  a  file 
from  the  disk  drive.  When  you 
select  this  option,  the  computer 
asks  for  the  name  of  the  file  you 
wish  to  delete.  Once  you  have 
selected  the  file  to  delete,  it 
checks  with  you  one  more  time 
by  asking,  "ARE  YOU  SURE?" 
This  makes  it  almost  impossible 
to  erase  a  file  by  accident, 

•  [E]DIT  File  is  similar  to 
[CJREATE  File,  but  is  used  to  con- 
tinue working  on  an  existing  file. 

•  [F]ORMAT  Disk  erases  all 


of  the  information  a  disk  con- 
tains, so  the  program  asks  you, 
"ARE  YOU  SURE?"  before  ex- 
ecuting this  command  too. 

•  [IJNDEX  of  Disk  Files  dis- 
plays the  names  of  all  the  pro- 
grams and  text  files  on  your  disk. 
After  the  files  have  been  dis- 
played, the  computer  asks  if  you 
want  to  print  the  index.  If  you 
press  Y  or  enter  YES  (and  have  a 
printer  connected),  the  index 
will  be  printed. 

•  [L]OAD  File  transfers  any 
file  you  have  on  disk  (or  cassette) 
into  the  computer's  memory. 

•  [P]RINT  File  prints  the 
file  that  is  currently  in  memory. 
This  routine  will  not  print  a  file 
direcdy  from  disk  (or  cassette). 
The  file  niust  first  be  transferred 
to  memory. 

•  |S]AVE  File  transfers  any 
file  you  have  in  memory  onto 
the  disk  (or  cassette). 

Editing 

In  the  edifing  mode,  AtariWriter 
displays  a  blank  screen  with  a 


Put  a  Monkey  Wrench 
into  your  ATARI  800  or  XL 


$49.95 


Cut  your  programming  time  Irom  hours  to  seconds,  and  hove  33 

direct  mode  commands  and  functions.  All  otyour  finger  tips  and 

all  mode  easy  by  ttie  MONKEY  WRENCH  II, 

Ttie  MONKEY  WRENCH  II  plugs  easily  into 

ttie  cartridge  slot  of  your  ATARI  and  works 

with  the  ATARI  BASIC. 

Order  your  WONKEV  WRENCH  11  today  and 

enjoy  the  conveniences  of  these  33  features: 

•  Line  numbering 

•  Renumbering  basic  line  numbers 

•  Deletion  of  line  nurr.bers 

•  Vorioble  and  current  value  display 

•  Location  of  every  siring  occurrence 

•  String  exchange 

•  Move  lines 

•  Copy  lines 

•  Up  and  down  scrolling  of  basic  progroms 

•  Special  line  formats  and  page  numbering 

•  Disk  directory  display 

•  Margins  change 

•  Home  key  functions 

•  Cursor  exchange 

•  Upper  case  ioci< 

•  Hex  conversion 

•  Decimal  conversion 

•  Machine  language  nr^onitor 

•  DOS  functions 

•  Function  keys 

The  MONKEY  WRENCH  !l  olso  contains  a  machine 
language  monitor  with  16  commands  thot  can  be  used 
to  interact  with  the  powerful  features  of  the  6502  microprocessor 


"The  Rabbit" 

for  your  V!C  20  or  CBM  64 

■t  yoj  cwn  Q  V'C  20  or  a  CBM  64  and  have  Be^conce'ned 

QMut  ifie  f'igh  cost  cl  a  disk  lo  store  vou'  programs  or. 

■ytfOffyvou'^eit  no  longer  Now  the'e'stnef?Aa3ir  'he!?AEBiT 

comes  in  a  corttidge  and  qi  q  rruch  rnuch  Io'^^t  pr:ce 

itianiheo'/e'agedisk  And  speed      [hisisonetasiRASBn 

'./•'iih  tne  RABB'T  you  can  load  and  store  on  your  CSV 

daiasette  on  fiK  orogram  *n  almos!  3D  seconds  comDared 

!□  ir'ecgrientS  min'Jtesof  q  \/lC20orCBM  W.  olmcstas 

last  as  the  15^1  disi:  drive 

The  RjiBBiT  is  easy  to  install  qhows  one  io  Apper>d 

Bosic  Programs.  worKs  with  or  without  txpansion 

Verro^,  and  ofovides  two  doto  life  modes  The 

■JASBIT  IS  ncl  only  last  but  r$lidne 

[The  RaOdil  tor  Itig  viC  20  contain?  on  expansion  con 

neclQ'  so  i^ou  con  simultaneously  use  vouf  memcrv  board,  etc 


$39.95 


1^      ^    A     ^"   NOW  Pleose  for  your  own  protec- 

l\    #1   #\  ^^   Tuc  ii''CT        fion  consider  the  MAE  first 
l\/l**r^    iritD:31         before  you  buy  that  other 
ITU       «^H   FOR '.ESS!      assembler  We've  had 
numerous  customers  who  wosled  their  money  on  some  cheaper 
olf  Dfond  assembler  tell  us  how  much  better  the  MAE  is. 
The  most  powerful  Macro  Assembler/Editor  available  for  the 
Commodore  64  and  other  CBM'PET  computers,  and  also  for 
the  ATARI  eOO'XL  and  Apple  IIIIIE. 

MAE  includes  an  Assembler.  Editor,  Word  Processor  Relocating 
Loader,  and  more  all  for  just  559.95. 

We  could  go  on  and  describe  the  MAE  but  we  thought  you  would 
like  to  read  our  customers'  comments.  The  following  are  actual 
unedited  comments  from  correspondence  about  the  MAE: 

Excellent  Development  "My  Compliments  to  Corl  Moser 

Backage"  andEHS" 

Cor^Dores  to  DEC  and  INTEL"     "it  is  a  superb  program " 


3239  Linda  Dr. 
Winston-Salem,  N.C.  27106 
(919)924-2889  (919)748-8446 
Send  for  free  catalog! 


MostarCard  I 
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series  of  letters  and  numbers 
across  the  top.  Below  the  blank 
screen  is  a  black  area  with  arrows 
indicating  the  tab  positions  and 
two  indicators  (L  and  C)  which 
are  used  to  keep  track  of  the  line 
and  column  of  the  cursor  location. 

Print  Formatting  Controls 

The  letters  and  numbers  across 
the  top  of  the  screen  are  print 
controls  and  can  be  changed  at 
any  time  during  your  editing 
session.  This  means  that  you 
can  have  text  that  varies  in  width, 
spacing,  or  any  other  parameter 
that  can  be  set  with  these  con- 
trols. The  print  functions  that 
you  can  control  are  bottom  mar- 
gin, paragraph  spacing,  print 
style,  paragraph  indention,  right 
justification,  left  margin  posi- 
tion, right  margin  position,  line 
spacing,  top  margin,  and  page 
length. 

Block  Functions 

Block  functions  are  contrc>ls  that 
allow  you  to  move  or  delete  en- 
tire blocks  of  text.  To  move  a 


block  of  text,  you  would  simply 
mark  the  beginning  and  end  of 
the  block  you  wish  to  move  (or 
delete);  AtariWrikr  will  do  the 
rest  for  you  automatically. 

Search  and  Replace 

With  search  and  replace  you  can 
specify  a  word  (or  several  words) 
that  vou  want  the  computer  to 
find.  AtiiriWritcr  will  then  look 
through  the  entire  document 
and  locate  each  occurrence  of 
the  word  (or  words)  you  specify. 
Once  each  word  has  been  found, 
you  can  continue  editing  from 
that  point,  replace  that  word  or 
delete  it. 

AtariWritcr  is  a  very  good, 
low-cost  word  processing  system 
that  can  provide  you  with  virtu- 
ally every  feature  you  could  want 
from  a  word  processor. 

AtariVVriter 

Atari,  Inc. 

1265  Born'j^ii:^  Ave. 

Box  427 

Suitin/mh',  CA  940S6 

(408)745-2000 

$99.95  © 


C-QS,  C-06,  C-10,  C-12,  C-ZD,  C-Z4,  C-32 


<^> 


FiOiii  the  leading  supplier  of  Computer  Cassettes, 
new,  longer  ienglh  C-12'5  [B  minutes  per  sitfe)  provide 
Ihe  extra  lew  lee!  needed  for  some  1GK  programs. 

BASF-LMD  (DPS)  world  standard  tBp«. 
Premium  S  screw  aheii  wiiri  leader. 
0gj^       "\5^  Error  Free  *  Monay  b*Ck  gu*fant«.       A 
Call:  818/700-0330  let  immedute  shipment  on  CnSit  Cini  Orttn 

ORDER  NOW. . .  if^Dlf  1/H^^^^  Vmmt  Ave.,  #CM 
. .  MAIL  TO.  .  .  VwRn  IvChalsworth.  CA  91311 
■  HHMwvPv   OflDER  FORM    —  —  —  —  «—  ^i^ 


ITEM           1  DOZ         iOQZ 

TOTAL 

C-»           G     7.W>    n  13  00 

C»         ; ;    7.DD   ; ;  i300 

C\0           LJ     T.M    r_^  H.0O 

Ci?         :j    7.x    ■;  I.".* 

CM          n    a-'5    C  '6» 

C-2<           n     9  00    ~   17.00 

c-32           Z:   '100    -:  2113 

Hwtiao.  c  2'«  ':  *-« 

sitfkj*  c*o3f(  ^  i»  («.H>r 

Cal>(    rmxStjnti  MM  UIM  IJU 

Shrpornjh*fK]!ira 

350 

Outs^a  4$  Seam  ADD  f(  pw 

TOTAL 

FHEE  1  STORAGE 
CADOV  «ilh  IrtTf  <  dm   I 

Eitiinii  puicMiid         I 


E^ch  a^ime  i^cl^;des 
2  laDel5  pniy   Bones 
sDid  separaieiy  I'n  Con) 
U  S  sh'pmenl  by  U  PS 
If  Parcel  Post  preffiffed. 
check  here   ■ 
#CM 

5Q0C-i2s,o  . 

otC■^a^s...OO^  ea. 
w/labelt.  add  4eea. 
plus  S17ttilpp<ng 

Ffr'  CjntTi  alir  dot^  no)  lo^ltl 

Check  or  MO.  enclosed  H       Send  Qjanlity  Discounts  [j 
Charge  to  credil  carrj-  VISA  l:     MASTERCARD  I" 


Card  NO- , 


.  £xp.- 


Address     

Clly 

Signature  _ 


.  Stale'ZIp  . 


Ask  about  our  DUPLtCATlNG  SERVICE 


¥24^ 

THOURl 

^SHiPPING'' 


ATARI™  USERS 

WE  SPECIALIZE  IN  BACKUP  HAHDWARE  AND  SOFTWARE 

"We  are  the  Backup  Experts" 


r24^ 

THOUR^ 

rSHIPPINGi 


COPY  ANY  ATARI-  CARTHIDGE 

CART  CLONE'- 

A  MUST  FOR  ALL  ATARI"  USERS. 
CART  CLONE  will  backup  andiransler 
any  8  or  16K  cartridge  to  disk  or  tape. 
The  conlents  Of  the  cartridge  will 
become  a  file  which  you  can  transfer, 
rename  or  delete.  They  will  execute 
from  DOS.  No  need  lo  run  a  special 
menu  or  program  to  run  these  files. 

(Al  Will  it  copy  any  cartridge? 
The  answer  is  YES. 

{B)  What  will  I  get? 

The  answer  is  a  cartridge  contain- 
ing the  hardware  required  and  a 
disk  with  the  doner  software  in  a 
powerful  macfiine  language  pro- 
gram. 

We  are  running  an  Introductory  Sale 
for  a  limited  time.  You  can  get  CART 
CLONE"  with  software  for 


«59 


95 


+  2. SO  Shipping 

This  price  could  increase  in  the  future. 
Dealer  inquiries  are  welcome. 

CART  CLONE"  goes  in  the  left  carl- 
ridge  slot  enabling  it  to  work  in  all 
ATARI"  Home  Computers  including 
the  XL  series. 


COPY  ANY  ATARI"  DISK 

The  HAPPY  810 
ENHANCEMENT  KIT 

With  WARP  SPEED  Software 

The  HAPPY  ENHANCEMENT  KIT  is 
guaranteed  for  five  years  to  copy  any 
ATARI"  Disk.  Gomes  with  Sector 
Copier  and  The  Compactor  and  n^ore 
software.  The  Compactor  will  turn 
your  auto  boot  whole  disks  into  files. 
The  transfer  of  data  between  the 
computer  and  disk  is  greatly  increased. 
Disk  drive  wear  is  decreased.  This  is  a 
plug-in  ttit.  No  need  to  solder  or  cut. 
Easy  installation. 

We  have  LARGE  STOCK  ready  for  24 
Hour  shipping. 

PRICE    *225»5l0  Shipping 


The TRANSFER PACK 

FOR  BACKING  UP  AND  TRANS- 
FERRING YOUR  SOFTWARE 

l)Disk  file  to  tape 
Z)Bool  tape  to  disk  file 
3)Tape  to  tape 

VERY  POWERFUL  and  low  priced. 
Programs  are  in  machine  language 
and  user  friendly.  ALL  3  FOR  ONLY 

$2495 

^■^F    '  2.50  Shipping 


NEW  PRODUCT 
The  DOWNLOADER 

For  The  ATARI  835  Modem" 

At  last,  a  program  that  will  allow  you  to 
download  Binary  and  Basic  files  with  the 
new  fl35  Modem,  no  interface  needed. 
Yoii  can  save  these  files  lo  disk,  printer  or 
cassette.  But  Beit  Of  All  you  will  be  able 
lo  download  games  from  bgllelin  boards 
with  our  software  an<l  the  835  Modem. 


PHOrJE  ORDERS 

(516)  467-1866 

PRODUCT  IMFO 

(516)  588-6019 


$3495 

t  2.50  Shipping 


THE  BOOK 
WITH  SOFTWARE 

Software  protection  and  code  cracking 
techniques.  MASTER  CODE 
CRACKER  REVEALS  ALL, 
In  this  book  you  will  find  out  how  the 
software  is  protected  and  ways  to 
protect  your  software.  Copy  guarding 
will  be  covered  in  detail  on  disks, 
cartridges  and  tapes  and  hardware 
tricks.  You  will  also  receive  a  disk  with 
many  programs  and  examples. 
BOOK  WITH  SOFTWARE  ONLY 


$24 


95 


AIABI-  4  610  ARE  TflADEWARKS  OF  ATARI 


GARDNER  COMPUTERS  INC. 

P.O.  BOX  388,  HOLBROOK,  N.Y.  11741 
We  are  working  art  New  Products  and  Software  -  CALL 


We  accept  CO  D  orders. 
money  orders  and  ship  withm 
24  Hours  (most  produclsf 
{Personal  checks  will  hiave 
to  clear  before  stiippmg.) 
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Bunn 

Adam  Cybanski 


X 


/ 
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Airborne  carrots  and  a  cloud-hopping  rabbit  add  a 
dash  of  xvhimsy  to  this  joystick-controlled  game  for 
the  Commodore  64,  VIC,  and  Atari. 


It's  harvest  time  in  that  great  big  carrot  patch  in 
the  sky  and  Copernicus,  a  rather  hungry  rabbit, 
is  on  the  prowl  for  his  favorite  vegetable. 

Unfortunately,  due  to  a  fluke  of  nature  as 
well  as  incredibly  bad  air  pollution,  the  carrots 
are  suspended  in  midair.  This,  however,  can  be 
turned  into  an  advantage  for  Copernicus,  since 
he  is  able  to  hop  around  on  the  dense  clouds  in 
pursuit  of  his  meal. 

He  may  also  jump  around  on  platforms 
which  have  been  dispersed  across  the  sky  for  ab- 
solutely no  reason  at  all. 

Watch  That  Brier  Patch 

The  only  thing  Copernicus  cannot  do  is  land  in 
the  brier  patch  below — he  would  be  transported 
back  to  his  initial  position.  This  would  not  be  so 
bad  if  he  had  an  unlimited  number  of  transport 
passes — unfortunately,  he  has  not.  After  they  are 
exhausted,  he  is  condemned  to  the  brier  patch 
for  the  rest  of  his  life. 

If  he  clears  the  sky  of  carrots,  then  benevo- 
lent forces  disperse  a  new  set  of  carrots  for  him, 
and  his  friends  in  the  brier  patch  become  so 
happy  for  him  that  they  usually  jump  around  in 
a  rabbit  euphoria.  Meanwhile,  Copernicus 
continues  to  collect  carrots  until  he  runs  out  of 
transport  passes. 

72     COMPUTEI      July  l^a^l 


One  Tricky  Carrot 

Once  in  a  while  our  hero  eats  a  jumping  bean 
which  has  been  disguised  as  a  carrot  by  some 
unknown  troublemaker.  This  causes  him  to  hop 
continuously,  hampering  his  ability  to  gather  car- 
rots. In  addition,  the  more  he  eats,  the  heavier  he 
becomes,  until  he  finds  that  he  can  no  longer 
jump  as  high  as  he  used  to.  But  then,  it  just  adds 
more  challenge  to  his  hare-raising  adventures. 

Joystick  Controls 

The  object  of  the  game  is  to  collect  all  the  car- 
rots. Copernicus  jumps  when  you  press  the  fire 
button  or  push  the  joystick  forward.  He  moves 
either  left  or  right  when  you  push  the  joystick  in 
either  of  those  directions. 

Clearing  the  screen  of  carrots  starts  you  on  a 
new  level.  Every  fifth  level  is  a  "jumper  round" 
during  which  the  rabbit  jumps  continuously.  At 
the  completion  of  every  tenth  level,  a  new  rabbit 
is  earned.  Rabbits  are  displayed  at  the  top  center 
of  the  screen,  and  one  is  lost  every  time  you  fall 
into  the  brier  patch  at  the  bottom  of  the  screen. 
When  all  rabbits  are  exhausted,  the  game  is  over. 

You  have  60  seconds  to  collect  the  carrots.  If 
your  time  runs  out,  the  clouds  speed  up  and  you 
forfeit  an  extra  time  bonus.  If  you  still  do  not  col- 
lect all  the  carrots  within  30  seconds,  the  clouds 
and  platforms  will  start  disappearing. 

The  score  is  displayed  on  the  top  right.  Try 
to  beat  a  score  of  10,000!  The  key  to  high  scoring 
is  to  clear  the  carrots  quickly  and  collect  the  extra 
time  bonus. 


NOW  AVAILABLE  FOR 

COLECOVISION 


\ 


Finally,  computer  gaiiiesyott^vant  your  kids  to  ptojy 


Spinnaker  makes  computer  games  hids  love  to  play. 

But  some  of  our  biggest  fans  are  parents. 

Because  on  top  of  all  the  fun  and  excitement  our  games 
have  something  more.  True  educational  value.  They  help 
develop  a  child's  learning  skills,  in  all  kinds  of  fun  ways. 

5o  Spinnaker  games  aren'tjust  computer  games.  They're 
Learning  Games. 

They're  written  by  top  educators  who  know  how  to  make 
learning  fun.  And  by  expert  game  programmers,  who  use 
colorful  graphics,  animation  and  sound  to  make  our  games 
50  exciting,  your  kids  may  not  even  realize  they're  learning. 
They're  having  too  good  a  time! 


That's  why  children  love  us.  And  parents  love  us. 

And  why  we're  already  the  leader  in  the  field  of  home  edu- 
cational software. 

5o  If  you're  looking  for  computer  games  that  you'll  like  as 
much  as  your  kids  will,  look  for  Spinnaker  Early  Learning 
Games  (ages  5-8)  and  Learn- 
ing Discovery  Games 
(ages  6-12)  at  your 

local  retailer.  ismDif — ~^m    '^Mxs^^^         ) 

Spinnaker.  We're       lilUinr      ^r       ^mS9m^^      / 

giving  computer 

games  a  good  name.  I    dll  •.iiF**i* 


sPffWiOKeff 


Disks  for:  Apple,*  Atari,"  IBM*  PC  and  PCJrand 
Commodore  64. ■" 
Cartridges  for;  ColecoVision,*  Coleco  Adam,™ 
Atari,*  IBM*  PCJrand  Commodre  64.'" 


We  make  learning  fun. 

Apple. Atari JBM  and  ColecoVisim  are  registered  trai3?rT«rta of  AppiBCornpiiterJrtf..Atan.HrK.JnterTiatk]naE  Bdiiiiess  Mactilnes  Cmp..  and  C^^ 
li)dustri£saixlCominociQrvEiectnjntc5  Ltd  respectively.  C  1934.  SpiniukerSoltwareCorp.  All  rigttls  reserved. 


Logic  (VIC  And  64  Versions) 

Lines  5  to  20  set  the  custom  characters.  Lines  30 
to  55  produce  a  short  machine  language  routine 
to  move  the  clouds.  Lines  100  to  150  initialize 
the  screen  for  each  new  level. 

Lines  200  to  280  are  the  main  game  loop. 
Lines  400  to  410  are  a  subroutine  which  in- 
creases the  game  difficulty  when  the  timer 
reaches  zero.  Lines  500  to  520  are  called  when 
the  game  ends. 

Lines  600  to  635  control  the  interleve!  fea- 
tures like  the  jumper  round  and  game  speed. 
Lines  700  and  705  are  called  when  a  carrot  is 
gathered. 

Lines  800  to  840  are  a  routine  which  is 
called  when  all  carrots  have  been  gathered.  It 
controls  the  extra  time  bonus  and  the  bouncing 
rabbit. 

Lines  900  and  905  are  called  when  a  rabbit 
hits  the  brier  patch. 

Bunny  Hop  (VIC  And  64  Versions) 

Line  20  contains  the  variable  I,  which  is  the  gen- 
eral speed  of  the  game.  Decreasing  it  makes  the 
game  faster  but  also  causes  Copernicus  to  remain 
on  the  screen  for  less  time. 

Line  25  has  CT,  which  is  the  number  of 
carrots  you  must  collect  initially.  LI  is  one  less 
than  the  number  of  rabbits  you  start  off  with.  L 
is  the  number  of  cloud  pieces  that  are  placed  in 
each  row. 

The  platform  pieces  in  line  115  and  also 
in  line  117  of  the  64  version  are  character  num- 
ber 183, 

Line  150  has  the  variable  D,  which  contains 
the  initial  bunny  character.  It  is  either  33,  facing 
right,  or  34,  facing  left.  Line  150  also  increases 
CT  by  one.  Changing  this  to  CT  =  CT-rO  will  keep 
the  number  of  carrots  to  be  collected  at  four. 

Use  Either  Joystick  Port 

The  statement  in  line  200  of  the  64  version, 
Y  =  PEEK(56320)AND  PEEK{QQ)  combines  the 
joystick  ports,  enabling  use  of  either. 

Changing  the  number  36  to  the  number  1  in 
line  245  will  enable  a  person  to  jump  on  the 
brier  patch  without  losing  a  bunny. 

Z  of  line  400  is  the  cloud  speed  switch.  If  Z 
is  zero,  the  clouds  remain  slow.  They  speed  up 
when  2  is  changed  to  —1. 

Line  610  increments  LE,  which  is  the  level 
counter.  If  LE  is  greater  than  19,  W  is  set  to  one 
instead  of  zero,  which  makes  Copernicus'  jumps 
shorter. 

An  Extra  Rabbit 

The  tens  in  line  615  give  you  an  extra  rabbit  ev- 
ery ten  levels.  Changing  this  to 
INT(LE/5)  =  LE/5  will  give  extra  rabbits  every 


five  levels. 

Line  620  makes  V  true  (  —  1)  every  five 
levels,  which  produces  a  jumper  round. 

Line  625  resets  the  number  of  carrots  to  4 
every  ten  levels. 

Line  630  decreases  the  number  of  cloud 
pieces  per  row.  Changing  it  to  L=L  — 0  will  keep 
the  number  of  clouds  constant. 

20  Points  For  A  Carrot 

You  are  given  20  points  for  a  carrot  in  line  700. 
Changing  this  to  FORX=lT055  would  give  you 
55  points  for  each  carrot. 

If  you  are  tired  of  the  large  number  of 
bunny  hops  at  high  levels,  just  revise  line  800 
with  F0RC  =  1T02,  which  will  perform  only  two 
hops  each  level  throughout  the  game. 

To  change  the  number  of  extra  bonus 
points,  simply  revise  line  830  to  something  like 
SC  =  SC  +  2. 

Program  1:64  Bunny  Hop 

Refer  to  the  "Automatic  Proofreader"  article  tefore  fyping  ttiis 
program  in. 

1  00=56321  trem  17 

5  DATA0, 0,0, 0,0, 0,0, 0,8, 12, 6, 189, 127, 124, 

56, 70, 16, 48, 96, 189, 254, 62, 28, 34 trem  241 

10  DATA0, 102, 255, 255, 102, 0,0, 0,66,  40, 134, 

51,136,102,102,102  :rem  78 

15  DATA13,  48,  188,  255,  255,  188,  48,  0,0, 102,  25 
5,255,102,0,0,0  trem  228 

16  POKE56334,0:POKE1,51  : rem  35 

17  FORX=0TO1023;POKEX+13312,PEEK(X+53248) 
:NEXT:POKEl,55:POKE56334,l       : rem  2 

20  F0RX=12544TO12599:READY:P0KEX,Y:NEXTtS 
=54272 s 1=75  ; rem  243 

23  POKES+5 , 9 : POKES+6 , 9  s  POKES , 115 : POKES+1 , 
3:POKE53280,5:POKE53281,6      : rem  190 

25  P0KE53272 , 28 :K=54272 :L=18 :CT=3 iLI=3 ;G0 
SUB600:POKES+24,15  : rem  208 

30  DATA160, 40, 177, 253, 200, 145, 253, 136, 136 
,192,255,208,245,160,40,177,253,160 

: rem  207 

31  DATA  0,145,253,160  trem  253 
35  DATA40, 169, 32, 145, 253, 96, 160, 41, 177, 25 

3,136, 145 , 253 , 200, 200 , 192 ,81,2: rem  216 

40  DATA245 , 160, 40, 177 , 253 , 160, 80, 145 , 253 , 

160,40,169,32,145,253,96,169,5,133,254 

: rem  110 
45  DATAl 69, 63, 133, 253, 32, 96, 47, 169, 184, 13 
3,253,32,68,47,169,47,13  3,253,169,6 

: rem  254 
50  DATA133, 254, 32, 96, 47, 169, 168, 133, 253, 3 
2,68,47,169,31,133,253,169,7,133,254 

: rem  32 
53  DATA32, 96, 47,96  i rem  180 

55  FORX=12100TO12203:READY:POKEX,Y:NEXT 

:rem  227 

100  PRINT" [ HOME} E 15  RIGHT } [WHT] {RVS ) BUNNY 

{2  SPACES IhOP": PRINT "{WHT} [RVS] 

{2  RIGHT}TIME":PR1NT" {7  LEFT) { RVS ] SCO 

RE"  :rem  33 

105  FORX=1944TO2023:POKEX, 36 : POKEX+K, 5 jNE 

XT  srem  181 

110  FORX=55496T056215:POKEX,1 :NEXT: 1=1-3 

:rem  193 
115  PRINT" {HOME} (7  DOWN} {YEL} {RVS } ^Y^ 
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M  K  r.  V  *Hrrt  r  m 


/£  YOUR  CHILD  TOP  BAHAMA 

ORJUST 
OHEOFTHEBUHCH? 

Kids  everywhere  are  going  ape  over  Artworx  Monkey  Series  educational 
software!  Like  all  good  arcade  games,  kids  just  can't  stop  playing  them. 
Which  is  great,  because  while  they're  enjoying  the  antics  of  Marc 
the  Monkey,  they're  learning.  And  growing. 

Three  Artworx  monkey  programs,  designed 
by  teachers  and  learning  specialists,  are  available 
to  help  your  child. 

Monkeymath"  uses  colorful  graphics  and 
three  levels  of  challenges  to  give  a  better  under- 
standing of  number  sequences,  addition,  sub- 
traction, multiplication,  and  division. 

Monkeynews"  uses  a  newspaper  setting  to  increase  your  child's 
ability  to  read  and  understand  by  enabling  him  to  actively  participate  in 
the  story,  answer  questions,  check  facts  and  type 
his  own  headlines. 

For  help  with  spelling  and  vocabulary,  choose 
Monkey  builder"' .  It  encourages  the  child  to  com- 
bine word  pieces  correctly  to  form  building  blocks, 
and  make  a  tree  house  for  Marc. 

All  three  programs  are  more  fun  than  a  barrel 
of  you-know-whats! 
All  are  available  for  the  Commodore  64,  Atari,  and  Apple  com- 
puters. All  include  a  FREE  Marc  the  Monkey  story  and  coloring  book. 
And  they're  all  the  stuff  top  bananas  are  made  of! 
See  them  in  action  wherever  soft- 


Monkeymath 


•5c- J:  ag^et-J"  •ss—  _ 

>> l*|t*   (MB*   Bl-B* 


S«L-iS 


■*g— "' IJjIMlIll 

Monkeynews 


ware  is  sold.  To  find  out  more  facts, 
send  $1.00  for  a  colorful  catalog  to: 
Artworx  Software  Co.,  Inc.  150  North 
Main  Street,  Fairport,  NY  14450. 

Or  call:  800-828-6573. 
(In  New  York  call:  716-425-2833). 


^:l 


Monkeybuilder 


Monkeymath  Monkeynews  Monkeybuilder 

by  Dennis  Zander    by  Dennis  Zander     by  Dean  Kindig  and  Rob  Fitter 

$24.95  $29.95  $29.95 


Educational  Software  with  a  smile. 


The  bujvni  is  about  to  fall  into  the  brier  patch  (64  version  of 
"Bunny  Hop"). 


{DOWN){2    LEFT}|y3{5    DOWN}g2    yKdOWN} 

(4    LEFT3E2    Yi{5    DOWN}g2    Y^fDOWN] 

{4  LEFT3E2  Y3"  : rem  199 

117  PRINT" {home} {RVS} {7  DOWN} {11  RIGHT} 

E3  Y3{12  RIGHT)^3  Y^{6  DOWN } { 2  LEFT} 

EY3{16    LEFT}EYf'  ; rem    201 

120    FORX=9TO21STEP6:FORY=1TOL;POKE1024+X* 

40+RND( 1)*40,35;NEXTY,X       : rem  225 
125  FORX=llTO17STEP6iFORY=lTOL:POKE1024+X 

*40+RND(l)*40,38:NEXTY,X       : rem  23 
130  C=CT:F0RX=1T0C  : rem  120 

135  Y=INT (RND(1)*639) +1224 :IFPEEK{Y)<> 320 

RY=1505THEN135  : rem  210 

140  IF(Y<1905ANDY>1862)OR(Y<1746ANDY>1702 

)OR(Y<1666ANDY>1622)THEN135   : rem  248 
145  IF(Y<1425ANDY>1382)OR(Y<1506ANDY>1462 

)THEN135  :rem  101 

150  POKEY,37:POKEY+K,7:NEXTX:P=1505:D=33: 

CT=CT+1  :rem  212 

155  TI$="000000":POKES-1,130      : rem  215 
200  POKEP, 32;POKE37154,127:Y=PEEK(56320)A 

NDPEEK ( QQ ) : I F ( YAND8 ) =0THENP=P+1 : D=3 

:rem  71 
205  IFPEEK(P+40)=38AND(NOT(B)ORZ)THENP=P+ 

1  ; rem  46 

210  1F{YAND4)=0THENP=P-1:D=34     s rem  204 
215  POKES+4,32:IFPEEK(P+40)=35AND(NOT{B)O 

R2)THENP=P-1  :rem  218 

220  B=(B=0) :IFBORZTHENSYS12156!POKES+4,33 

: rem  243 
225  IFA=0ANDPEEK(P+40)<>32THENIF(YAND16)= 

0OR( YANDl ) =0ORVTHENA=7-W*2 :P0KES  +  11 ,  3 

3  s  rem  62 

230  IFA<4-WANDPEEK(P+40)=32ORPEEK(P+40)=3 

7THENP=P+40  :rem  91 

233  POKES+l,3:IFZTHENPOKES+l,15   : rem  151 
235  IFA<>0THENA=A-1 : IFA>  3-WTHENP=P-40  t  POK 

ES+8,PEEK(S+8)+2  : rem  208 

240  IFPEEK{P)=37THEN700  : rem  88 

245  IFPEEK(P+40)=36THEN900        i rem  237 
250  IFPEEK ( P ) <>  3 2THENP=P+40 : GOTO260 : POKES 

,PEEK{S)-20  :rem  177 

255  POKES, 70  s rem  177 

260  IFPEEK(P)=37THEN700  jrem  90 

265  POKEP, DsPOKEP+K,l!FOEX=lTOl!NEXT 

:rem  100 


PRINT" {HOME} {3  DOWN} [8  LEFT}£RVS} 
{WHT}";SC  trem  128 

PRINT" {HOME} {2  DOWN}{rvS}{2  RIGHT}";: 
T=60-VAL(TI$) :IFT<1THEN400  : rem    203 

PRINTTr"(LEPT}     ":GOTO200  : rem    156 

PRINT" {HOME} {2    DOWN} (4    SPACES} {wht} 
{RVS}0{2    spaces} ":Z=-1 :IFTI5< "000130" 
THENGOTO200  : rem    56 

Y=1224+INT(RND(1)*719) : IFPEEK( Y)=370R 
{ PEEK( Y)=32ANDRND ( 1 ) > . 2 ) THEN405 

:rem  209 
POKEY, 32 :GOTO200  : rem    179 

PRINT" {12  DOWN} {16  RIGHT} {RVS} { CYN} AG 
AIN    ?"  :rem   82 

GETA$:IFA$=""THEN505  : rem   87 

IFA$="Y"THENRUN  :rem    136 

IFA5="N"THENEND  : rem    100 

GOTO505  :rem    106 

IFLK0THEN500  :  rem   234 

PRINT"{CLR} {2  DOWN} (18  RIGHT} { WHT }"; : 
IFLI >0THENFORX=1TOLI : PRINT " 1 " ; : NEXT 

: rem  43 
PRINT"  " :LE=LE+1 :Z=0:W=0:V=0:IFLE>19T 
HENW=1  :rem  79 

IFINT(LE/10)=LE/10THENLI=LI+I:rem  216 
IFLE/5=INT(LE/5)THENV=-1  : rem  170 
IFLE/10=INT(LE/10)THENCT=4  : rem  30 
L=L-1:IFL<3THENL=10  s rem  105 

RETURN  :rem  126 

FORX=1TO20 :P0KES+4, 129 :SC=SC+1 : PRINT" 
{H0ME}{3  D0WN}{8  left} t RVS}" rSC: POKES 
+4,128:NEXT  : rem  162 

C=C-l!ON-(C=0)+lGOTO265,800  : rem  184 
POKES , 0 : F0RC=1T0LE : Y=0 :X=0 : V=0 

:rem  120 
Z= 1904+X+Y :X=X+1 : POKES+4 , 33 : IFX=  39THE 
N825  :rem  209 

POKES+1 , ABS ( Y/ 20 ) +10 ! IFV=0THENY=Y-40 : 
IFY=-160THENV=1  i rem  145 

IFV=lTHENY=Y+40!lFY=0THENV=0  : rem  31 
POKEZ,32:POKE1904+X+Y,33:POKE1904+X+Y 
+K,1: POKES+4, 32 :GOTO805  : rem  81 
POKEZ, 32;NEXTC:POKES+l,3  :rem236 
IFT>0THENFORX=TTO0STEP-1 : POKES+4, 1 29 : 
PRINT" {HOME} [2  DOWN } {RVS } {2  RIGHT} "?X 
:SC=SC+T  :rem  124 

IFT>0THENPRXNT"{HOME}{3  DOWN} {7  LEFT} 
{RVS} ";SC: POKES+4, 1 28 :NEXTX  i rem  24 
POKES, 0:GOSUB600:GOTO100  : rem  206 
F0RY=1T0LE  j  POKES+1 ,101 F0RX=1T01 50STEP 
5:POKES+4,33;POKES+1,X/10  : rem  138 
P0KES+4,32:NEXTX,YtP0KES+l,3:LI=LI-l: 
GOSUB600:GOTO100  ! rem  48  . 

Program  2:  vie  Bunny  Hop 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  ttiis 
program  in. 

5  DATA0, 0,0, 0,0, 0,0, 0,8, 12, 6, 189, 127, 124, 

56, 70, 16, 48, 96, 189, 254, 62, 28, 34: rem  241 

10  DATA0, 102, 255, 255, 102, 0,0, 0,66, 40, 134, 

51,136,102,102,102  :rem  78 

15  DATA0, 48, 188, 255, 255, 188, 48, 0,0, 102, 25 

5,255,102,0,0,0  :rem  228 

20  FORX=7424T07479: READY :P0KEX,Y;NEXT:S=3 

6876:1=100  :rem  196 

25  POKE36869,255:POKES+3,109:K=30720:L=10 

:CT=4:LI=3:GOSUB600:POKES+2, 15: rem  172 
30  DATA160, 22, 177, 253, 200, 145, 253, 136, 136 

,192,255,208,245,160,22,177,253,160,0, 

145  :rem  241 


610 

615 

620 
625 
630 
635 

700 


705 

800 

805 

810 

815 
820 

825 
830 


835 

840 
900 

905 


76     COMPOTEI      July  1984 


35  DATA253, 160, 22, 169, 32, 145, 253, 96, 160,  2 

3,177,253,136,145,2  5  3,200,200,192,45,2 

08  :rem  201 

40  DATA245, 160, 22,177,253,160,44,145,253, 

160,22,169,32,145,253,96,169,30,133,25 

4,169  :rem  104 

45  DATAl 53, 133, 253, 32, 184, 28, 169, 220, 133, 

253,32,156,28,169,29,133,253,169,31,13 

3  ; rem  164 

50  DATA254, 32, 184, 28, 169, 96, 133, 2 53, 32, 15 

6,28,169,161,133,253,32,184,28,96 

irem  141 
55  FORX=7324T07423:READY:POKEX,Y:NEXT 

; rem  151 
100  PRINT" {HOME) {6  SPACES} JyEL) {RVS} BUNNY 

{ 2  SPACES } HOP " : PRINT " { WHT } i RVS } TIME " : 

PRINT" {5  LEFT} { RVS} SCORE"     : rem  147 
105  F0RX=8 164T08 18 5 : POKEX , 36 : POKEX+K , 5 : NE 

XT  :rem  197 

110  FORX=38576T038861 : POKEX, 1 :NEXT: 1=1-3 

: rem  200 
115  PRINT "{home} {6  DOWN } {YEL} {RVS ] iY3 

{9  RIGHT} E 2  Y3{9  RIGHT}gY§{5  DOWN} 

il   Y3{4  LEFT} {down} E 2  Y3{5  D0WN]E2  Y3 

{4  LEFT} {DOWN) E2  Yi "  : rem  227 

120  FORX=8TO20STEP6:FORY=1TOL:POKE7680+X* 

22+RND(l)*22,35:NEXTY,X       : rem  237 
125  FORX=10TO16STEP6:FORY=1TOL:POKE7680+X 

*22+RND(l)*22,38:NEXTY,X       r rem  35 
130  C=CT:F0RX=1T0C  : rem  120 

135  Y=INT{RND(1)*351)+7768:IFPEEKCY) <>320 

RY=8055THEN135  : rem  227 

140  IFCY<8143ANDY>8118)OR(Y<B056ANDY>8030 

)OR{Y<B011ANDY>7986)THEN135     : rem  6 
145  IFCY<7879ANDY>7854)0R(Y<7924ANDY>7898 

)THEN135  :rem  159 

150  POKEY,37:POKEY+K,7:NEXTX:P=8055 :D=33: 

CT=CT+1  :rem  219 

155  TI$="000000":POKES-1,130      : rem  215 
200  POKEP,32:POKE37154,127iY=PEEK(37I52): 

IF(YAND128)=0THENP=P+1:D=33   : rem  244 
205  IFPEEK(P+22)=38AND(N0T(B)0RZ)THENP=P+ 

1  ; rem  46 

210  POKE37154, 255 :Y=PEEK( 37137): IF (YAND16 

)=0THENP=P-1:D=34  : rem  127 

215  IFPEEK(P+22)=35AND(N0T(B)0RZ)THENP=P- 

1  ; rem  46 

220  B=(B=0) ;IFBORZTHENSYS7  380:POKES-1,PEE 

K{ S-1 )+20 : IFPEEK( S-1 )=170THENPOKES-1 , 

130  srem    167 

225    IFA=0ANDPEEK  (  P+22  )  032THENIF  (  YAtJD32  )  = 

0OR{YAND4)=0ORVTHENA=7-W*2iPOKES,195 

srem  235 
230  IFA<4-WANDPEEK(P+22 )=320RPEEK( P+22 )=3 

7THENP=P+22  :rem  91 

235  IFA<>0THENA=A-1 : IFA>  3-WTHENP=P-2 2 : POK 

ES,PEEK(S)+20  :rem  58 

240  IFPEEK(P)=37THEN700  :rem  88 

245  IFPEEK(P+22)=36THEN900        srem  23  7 
250  IFPEEK(P) <>32THENP=P+22:P0KES,PEEK(S) 

-20:GOTO260  : rem  177 

255  POKES, 70  : rem  177 

260  IFPEEK(P)=37THEN700  : rem  90 

265  POKEP , D : POKEP+K , 1 : F0RX=1T0I : NEXT 

:rem  100 
270  PRINT" (HOME) {3  DOWN} {6  LEFT) {RVS }" fSC 

! rem  65 
275  PRINT" {HOME) {2  DOWN} {RVS} " ; :T=60-VAL{ 

TI$):IFT<1THEN400  : rem  145 

280  PRINTT;"{LEFT}  ":GOTO200      srem  156 
400  PRINT" {HOME) {2  DOWN) {2  SPACES) {CYN} 


Time  has  run  out  for  the  bunny  (VIC  version). 


{RVS}0{2  SPACES) "jZ=-ltIFTI$< "000130" 
THENGOTO200  : rem  210 

405  Y=7746+INT{RND(1)*417) : IFPEEKC Y )=370R 

(PEEK(Y)=32ANDRND{ 1 ) > .5 )THEN405 

:rem  222 
410  POKEY, 32 :GOTO200  : rem  179 

500  PRINT" {10  DOWN} {7  RIGHT }{ RVS } {CRN } AG A 

IN  7"  :rem  170 

505  GETA?:IFA$=""THEN505  : rem  87 

510  IFA$="Y"THENRUN  :rem  136 

515  IFA5="N"THENEND  srem  100 

520  GOTO505  : rem  106 

600  IFLK0THEN500  :  rem  234 

605  PRINT"{CLR] {2  DOWN) {9  RIGHT} {WHT} " ; : I 

FLI >  0THENFORX=1TOLI : PRINT " I " ; J  NEXT 

;rem  38 
610  PRINT"  ":LE=LE+l:Z=0:W=0:V=0iIFLE>19T 

HENW=1  :rem  79 

615  IFINT(LE/10)=LE/i0THENLI=LI+l:rem  216 
620  IFLE/5=INTCLE/5)THENV=-1  : rem  170 
625  IFLE/10=INT(LE/10)THENCT=4  : rem  30 
630  L=L-1:IFL<3THENL=10  srem  105 

635  RETURN  srem  126 

700  FORX=1TO20 :P0KES+1 , 126+( 20-X) *3 :SC=SC 

+1:PRINT"{H0ME}{3  DOWN} {6  LEFT){RVS)" 

;SCsNEXT  srem  64 

705  C=C-1:ON-CC=0)+1GOTO265,800  : rem  184 
800  POKES, 0 :F0RC=1T0LE :Y=0 :X=0:V=0 

:rem  120 
805  Z=8142+X+Y : X=X+1 : POKES-1 , 188-Y : IFX=21 

THEN825  srem  137 

810  IFV=0THENY=Y-22 : IFY=-66THENV=1 

srem  133 
815  IFV=1THENY=Y+22;IFY=0THENV=0  srem  31 
820  POKEZ, 32 ; P0KE8142+X+Y, 33 :P0KE8142+X+Y 

+K,1:GOTO805  srem  167 

825  POKEZ, 32 iNEXTC: POKES -1,0  srem  235 
830  IFT>0THENFORX=TTO0STEP-1 5 PRINT" {home) 

{2  DOWN) { RVS }";X:SC=SC+T: PRINT "{home} 

{3  DOWN} {5  LEFT) { RVS }";SC     srem  164 
835  IFT > 0THENPOKES , 0  s POKES , 1 70+T s NEXTX 

s  rem  206 
840  POKES, 0:GOSUB600sGOTO100  srem  206 
900  FORY=ilTOLEt  POKES-1, 0sFORX=255TO200STE 

P-l;POKES,X:NEXTX,YsPOKES,0   srem  192 
905  LI=LI-1:GOSUB600:GOTO100      srem  183 
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Program  3:  Atari  Bunny  Hop 

K0  POKE  752,1:  PRINT  "  {CLEAR}  "  :  POS  I 

TION  15,10:PRINT  "BUNNY  HOP":PO 

SITION  10,12:PRINT  "USE  JDYSTIC 

K  PORT  1":P0SITI0N  14,14 

ftF  1  FOR  ft=1536  TO  1 536+ 1 26 ; READ  B:P 

OKE  A,B:NEXT  A 
CP  2  PRINT  "PLEASE  WAIT":FaR  T=I  TO 
1000:NEXT  T:6RAPHICS  17:SETCOLO 
R  0,0, 14: SETCOLOR  2 , 1 2 , 8 : SETCOL 
OR  3,2, 8: DIM  Tt (3) 
FM  3  SND=150:OPEN  #1,4,0,  "K:" 
HG  11  CHBAS  =  57344:  CHSET=  <PEEK  (106)  ~B 
)«256:F0R  1=0  TO  t023:POKE  CHS 
ET+I , PEEK (CHBAS+I ): NEXT  I : POKE 
756, CHSET/256 
CF12  READ  NCHR:FOR  1  =  1  TO  NCHR:READ 
RPLC:FOR  J=0  TO  7:READ  A:POKE 
CHSET+StRPLC+J, A: NEXT  a:NEXT 
I 
FL  25  LE=1  :  L=10:  CT  =  4:  LI=3:  BOSUB  600 
I1N  100  POSITION  5,0:PRINT  #6;  "BUNNY 
HDP":PRINT  #6 ;  " T I  ME " ;  : PR  I  NT 
«6;"<5  SPACESJSCORE" 
PG  105  COLOR  199:PLaT  0,2Z:DRAWTO  19 

,22 
L0115  POSITION  0,12:PRINT  «6;"<:2  M5 
"iPOSITION  18,12:PRINT  #6;" 
(.1     MJ":POSITION  0,ia:PRINT  #6 
;"<:2  M>":PD5ITI0N  18,18 
BH  1  16  PRINT  #fa;  "  <2  M>  " 

EL  120  FOR  Y  =  a  TO  20  STEP  6:FDR  X  =  l 
TO  L:FaSITION  RND ( 1)  *  1  9 , Y : PR  I 
NT  #6;"F":NEXT  X:NEXT  Y 
ED  125  FOR  Y=10  TO  16  STEP  6:F0R  X=l 
TO  L: POSIT  ION  RND £  1 )  *  1 9 , Y : PR 
INT  tt6;"K":NEXT  X:NEXT  Y 
HC  130  C  =  CT:FDR  R=l  TO  C 

IS  135  Y=INT  (RND  (  1)  »  10)  +6:  X  =  RND  C  1  )  «  19 
BF  136  LOCATE  X,Y,PEEK:IF  PEEK032  T 

HEN  135 
CL  137  IF  Y  =  8  OR  Y=  1  0  OR  Y=14  OR  Y=l 
6  OR  Y=20  THEN  135 

PJSITIQN  X,Y:PRINT  #6;CHR«(234) 
NEXT  R: D=76: CT=CT+1 
POKE  1S,0:POKE  19,0:PQKE  20,0 
X=0:Y=11 

X, Y: SND=50 
THEN  X=X+1:D=76 
X=0:PQKE  77,0 
: IF  Z=75  AND   ( 
THEN  X=X+1 : IF 


CO 

150 

FC 

152 

OF 

155 

JB 

190 

IN 

200 

CJ 

205 

OE 

206 

FB 

210 

COLOR  32:PL0T 

IF  STICK(0)=7 

:  IF  X  >19  THEN 

LOCATE  X , Y+1 , Z 

NOT  (B)  OR  Zl) 

X>19  THEN  X=0 

IF  STICK(0)=11  THEN  X=X-1:D=6 

8: IF  X<0  THEN  X=19:P0KE  77.0 
NP215  LOCATE  X,Y+1,Z:IF  Z  =  70  AND  ( 

NOT  (B)  OR  Zl)  THEN  X=X-1:IF 

X<0  THEN  X=19 
HC  220  B=(B=0):IF  B  OR  Zl  THEN  QQ  =  US 

R ( 1536) 
J0225  LOCATE  X,Y+1,Z;IF  A  =  0  AND  Z<> 

32  THEN  IF  STICK(0)=14  OR  STR 

ie(0)=0  OR  V  THEN  A=7-W«2:S0U 

ND  3, 150, 12, 15 
HO  230  IF  A<4-W  AND  Z  =  32  OR  Z=234  TH 

EN  Y=Y+1 
KB  235  IF  A<>0  THEN  A  =  A-1:IF  A>3-W  T 

HEN  Y=Y-1 : SND=SND-2: SOUND  3,S 

ND,  10,  15 
C£  240  LOCATE  X,Y,ZZ:IF  ZZ  =  234  THEN 

700 
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CN  245 

DC  250 

ftD  255 
HH  260 
DI  265 

HD  270 
ML  275 

IE  277 


Fe  280 

£1  400 
LL  405 


IF  410 
HE  500 

FJ  503 
DL  505 
FE  510 

GI  515 
BK  520 
IH  599 
OK  600 
HE  605 


HF  6  10 

N!  615 

Kt:  620 
BO  625 
EJ  630 
HO  635 
HC  700 


LI  705 
LO  800 

AE  840 


IF  Z  = 
IF  ZZ 
20:SO 
SOUND 
IF  ZZ 
COLOR 
:  NEXT 
POSIT 
T=INT 
0)  >  /6 
T*  =  ST 
POSIT 
GOTO 
POSIT 
200 
POSIT 
:  Zl  =  l 
XX  =  RN 
OCATE 
32  AN 
COLOR 
SOUND 
RINT 
DIM  A 
GET  # 
IF  A  = 
*  (3)  : 
IF  A  = 
GOTO 
GOTO 
IF  LI 
PRINT 
,  23:  I 
I  :  PRI 
LE  =  LE 
THEN 
IF  IN 
I  +  l 
IF  LE 
IF  LE 
L  =  L-1 
RETUR 
FOR  S 
,  126  + 
DN  16 
C  =  C-1 

SOUND 

E:  Y  =  0 

SOUND 

100 


199 
<  >32 
UND 

3,  1 
=  234 

D:P 

G 
ION 
(60- 
0)  :  I 
R«  (T 
ION 
200 
ION 

ION 

:  IF 

D(  1) 

XX, 

D  RN 

32: 

3,  0 

#6;  " 

«  (  1  ) 

1,A 
ASC( 
SND  = 
ASC  ( 
505 
599 
<0  T 

tt6: 
F  LI 
NT  # 
+  1  :  Z 

W=l 
T(LE 


THEN  900 

THEN  Y=Y+1 : SND=SND+ 
3, SND, 10, 15: GOTO  260 
50, 10,0 

THEN  700 
LOT  X,Y:FOR  G=l  TO  I 

16,  1 5  PR  I  NT  »6;SC 
(PEEK  (19)  «256  +  PEEK (2 
F  T<1  THEN  400 
) : IF  LEN(T*)=1  THEN 
6, 1 : PRINT  #6;T*; "  ": 

6,1:PRINT  #6;Tte0T0 

4,1: PRINT  #6; "   0 
T>-30  THEN  200 
«16: YY=RND( 1 ) *16+4:L 
YY,  Z:  IF  Z  =  234  OR  ( Z  = 
D ( 1 ) >0. 5)  THEN  405 
PLOT  XX,YY:BOTO  200 
, 0, 0: POSI TION  4,11:P 
ANOTHER  TRY?" 


"Y")  THEN  CLR 
150:GOTa  25 
"N")  THEN  END 


:  DIM  T 


HEN  500 

" tCLEARJ ": POSITION  8 
>0  THEN  FOR  X=l  TO  L 
6; "D" ; ; NEXT  X 
1=0: W=0: V=0: IF  LE>19 

/10)=LE/10  THEN  LI=L 


/5=INT(LE/5)  THEN  V=-l 
/ 10=INT (LE/ 10)  THEN  CT=4 
:  IF  L<3  THEN  L=10 
N 

20  TO  1  STEP  -1;SDUND  3 
S«3, 10, 15:SC=SC+1:P0SITI 
1:PRINT  #6;SC:NEXT  S 

ON  -(C=0)+1  GOTO  265,800 

3, 130, 10, 0: FOR  C=l  TO  L 

X=0:NEXT  C 

0, 0, 0, 0: GOSUB  600:GOSUB 


The  bunny  prepares  to  eat  a  carrot  (Atari  version). 


X=205  TO  20 
X, 10, 15:NEX 


1 : easuB    h 


ND900  FOR  Y=l  TO  LE:FOR 
0  STEP  -1:SDUND  3, 
T  X;NEXT  Y 
NB  905  SOUND  3  ,  0  ,  0,  0:  L1  =  L  I 

00:GOTO  100 
PJ  1536  DATA  104,24,165,88,105,160 
HE  154  2  DATA  133,203,165,89,105,0 
GA  1548  DATA  133,204,32,82,6,24 
CF  1554  DATA  165,88,105,200,133,203 
HC  1560  DATA  165,89,105,0,133,204 
BL  1566  DATA  32,105,6,24,165,88 
PK  1572  DATA  105,24,133,203,165,89 
!Q  1578  DATA  105,1,133,204,32,82 
Hfl 1584  DATA  6,24,165,88,105,64 
HF  1590  DATA  133,203,165,89,105,1 
IP  1596  DATA  133,204,32,105,6,24 
C6  1602  DATA  165,88,105,144,133,203 
N6  1608  DATA  165,89,105,1,133,204 
HN  1613  DATA  32,82,6,96 

NL  1615  DATA  160,0,177,203,170,160,1 
, 177, 203, 136, 145, 203, 200, 200 
, 192, 20, 208, 245, 136, 138, 145, 
20  3, 96,  160,  19,  177, 203,  170 
DATA  136,177,203,200,145,203 
, 136, 136, 192, 255, 208, 245, 200 
,138, 145, 203, 96 

DATA  7,32,0,0,0,0,0,0,0,0,44 
, a, 12, 6, 189, 127, 124, 56, 70, 36 
, 16, 48, 96, 189, 254, 62, 28, 34, 3 
8,0, 102, 255, 255 

DATA     102,0,0,0,39,66,40,134, 
51 , 136, 102, 102, 102 
DATA    42,0,48.188,255,255,138 
,48,0 

DATA  43,0,102,255,255,102,0, 
0,0  € 


»:E  1616 


DC  2500 


KS  2505 


FP  2506 


m  2507 
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Commodore  Ownerr 
IfLCOMMANDE 


WERFUL  SINGLE  D 


GET  THE  BEST! 


•  A  Fflsf,  Roli.ihie  Commodore 
(.ickup  Prugram  Writleii 

Iri  Machino  LiilijLUigc 
*#Will  Lasily  Backup  Even 
Many  "Ht'avily  Prok'ctijd" 
.Disks 

•  CSpies  Any  File  Type 

>  Foolproof  Disk  Verification 

•  Technique  Assures  Perfect 
Copies 


Aulomatic  Disk  Iniliali?ation 
Also  includes  Poivertul  On- 
Screen  Ediiiii);  nt  Track  & 
Sector  Display  In  Hex  or 
ACSII  With  Read.'  U'rite  and 
Scan  Ft-alure 

Dispby-  Print  Cgmpiele  Disk 
Difccton.'  Contenis 
Complete  Documentation 
Manual 


Sp^ecial  Introductory  Price: 

[toljlit  Dimritvilor  ^^Q      S5 


TOLL  FREE  ORDER  LINE  I  v/S4 

a  HBS.  /  7  DAYS 


^•■I'ltjy'^-irC'i:  l»lt\1'-[»i'lW 


MTm  i1  fOl  SBl\nCE  &  RBJABIUrY 


CALL  TOLL  FREE 

800-221-8180 

IN  NEW  YOSK  STAH 

can  1212!  7jie60a 


,m^ 


[WORLD 


23  PARK  ROW 
NEW  YORK  CFTY, 
NEW  YORK 
10038 


VIC  20  sorrwAKC 


■FOR  FREE  GIAMT  CATALOGS— 

CA1.L  TOLL/REE  800-426-6027 

.288  PACE  AUDIO   VIDEO   COMPUTER  CflTALOC 

•  ea  PACE  RECOPD  AND  CASSETTE  CATALOG 

'80  PACE  VIDEO  r-IOyiE  CATALOG 


23  Park  ROW,  DB^.  C7,  IWC,  NY  10038 


ei-i»  i^f  v-yv 

sou    'J     f-'TrTf  VII- 


'J4,W 

■  -MM 
'»tS 


CKJAOI  MhPC^Wi; 


jiTjMi  icm    ft*  3 
uasco  LQ  1 


I    "'  fr...   .,r  ,.■;.-■-  -!     r  ■  ■'■-'■   ■■.";(■   sOnr  nOC  0  D  i  ■-■.■.    .-- 
TOaV  HniM    MMO  130'-  CUUAATIED    Wn  Wri  MfiT  nl'OM'bKI     fOt  KMI 

WmE  (»-  CMX  f(»-  RK  288  PAGE  AUDIO  /VIDEO  /COMPUTQR  CATALOG 


EDUCATIONAL 

EASY-TO-USE  ^/jy--^ 

SOFTWARE 

FOR 

CHILDREN 

All  itiree  programs  are 
available  on  disk  toi  Apo*  II, 
II  +  ana  Me,  on  djskoi 
cassette  tor  Corrniodore  &i 
and  on  cassette  lor  Te»as 
InEtrumenls  99M A  "^i 


Vz 


THE  PLANE  GAME.. .Agt$  3'^  t95 

This  game  teacnes  letter  ana  numoef  lOeni 
(ticalion,  cDunimg  tfOm  i  to  9  and  me  loca^i'On 
ol  the  keys  on  the  tteytMaid 
ABC  II. . .  tor  SECOND  GRADERS 
Thrs  game  leaches  scWiiion ,  subuscnon.  and 
spelfmg  and  car  be  pfayed  by  up  to  five 
chiid'en  31  once  The^e  is  a  scoreboard  and 
tne  chiiflren  are  felerrecJ  to  by  narne 

ABC  m...  for  THIRD  QRADERS 
This  game  leaches  mLjl![plica'ion.  flivtsion,  and 
spelfing  afid  can  oe  played  Dy  up  IQ  five 
children  ai  once  There  i&  a  scoreboard  and 
the  children  are  reterrecl  to  by  name 


ALL  PROGRAMS  $19®^ 

2  for  $35^5 

Ad:J  St  50  per  order  lor  shipping 
and  handling 

•SENDCHECKOR 
MONEY  ORDER  TO 


P.O.  BOX  ai4  Bay  City,  Ml  48707 
Of  l»e  VISA  sr  MASTERCARD  to 
ordsr  by  ptiono:  1-51 7-892-6568 
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Bluebeiries 


Bill  Roof 


Don't  be  fooled  by  the  name.  "Blueberries"  is  a  fast- 
paced  strategic  game  for  one  or  two  players.  Orig- 
inally written  for  Atari  computers  zvith  at  least  16K 
memory,  versions  are  included  for  Commodore  64, 
IBM  PC,  and  PCjr.  Tzoo  joysticks  required. 


Picking  blueberries  might  seem  to  be  a  pleasant 
task  for  children  on  a  hot  dusty  summer  day.  But 
not  in  this  game.  You  won't  have  time  for  a  nap 
in  the  shade. 

First  you  must  plant  the  seeds  for  the  blue- 
berries. And  once  they  grow  into  blueberries,  you 
must  pick  them  before  they  grow  into  redberries 
or  rot  altogether. 

When  you  run  the  Atari  version  of  "Blue- 
berries," you  will  first  see  a  title  screen  which 
says:  GTIA/CTIA  (G/C)?  Push  either  G  or  C 
depending  on  which  chip  you  have.  (Computers 
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purchased  after  January  1982  probably  have  the 
GTIA  chip.)  If  you  don't  know  which  you  have, 
just  choose  one — you  can  stop  the  program  later 
and  rerun  it  if  the  colors  are  wrong. 

Dividing  Up  The  Farm 

Then,  in  the  middle  of  the  screen  you'll  see  the 
actual  playing  field,  which  is  split  up  into  two 
planting  fields.  Player  1  plays  on  the  upper  field; 
"^-player  2  plays  on  the  lower  field. 

The  very  bottom  of  the  screen  displays  the 
current  options.  Pressing  the  OPTION  and  SE- 
LECT keys  will  change  these.  Select  the  options 
you  want  for  the  game.  HANDS  means  the  num- 
vber  of  farmhands  3'ou'll  have  to  help  with  the 
"picking.  The  various  LIMITs  mean  that  the  game 
will  end  once  one  player  reaches  that  LIMIT.  A 
NO  LIMIT  game  continues  until  one  player  loses 
all  of  his  farmhands. 

Once  the  options  are  chosen  and  each  player 
has  a  joystick  (player  1  uses  port  1,  player  2  uses 
port  2),  the  game  can  be  started  by  pressing 
START.  (One-player  games  can  be  played  from 
either  joystick  port,  depending  on  which  field 
you  want  to  play.) 

i\Aeet  The  Farmhands 

Player  1  controls  the  small  farmhand  standing  in 
the  lower  left  corner  of  the  top  field  (that's 
Farmer  Jack).  Player  2  controls  the  farmhand 
standing  in  the  upper  right  corner  of  the  bottom 
field  (that's  Farmer  Bob).  Moving  the  joysticks  in 
the  four  compass  directions  moves  the  farmers 
similarly. 

Try  moving  the  farmers  around  their  fields. 
You  will  notice  that  you  can't  go  through  the 
bushes  separating  the  fields.  If  you  try  to  do  so 
you  hear  a  noise. 

In  the  upper  right  or  lower  left  corner  of 
each  field,  you'll  see  a  small  shed  where  the 
blueberry  seeds  are  stored.  In  order  to  get  the 
seeds,  you  must  maneuver  your  farmer  into  the 
shed.  Once  you  go  into  the  shed,  you  will  be 
placed  outside  of  it  automatically,  and  you  will 
hear  a  short,  razzy  sound. 


It's  Planting  Time 

Now  you  can  plant  the  seeds  by  moving  your 
farmer  while  holding  down  the  fire  button  of 
your  joystick.  The  seeds  are  small,  long,  and 
light  green. 

You  will  have  to  return  to  the  shed  periodi- 
cally to  get  more  seeds,  as  your  farmer  can  get 
only  a  limited  number  of  seeds  each  time. 

Once  the  seeds  are  planted,  they  should 
soon  start  growing  into  blueberries.  The  growth 
of  the  blueberries  is  random,  however;  the  seeds 
that  have  been  planted  the  longest  will  not  nec- 
essarily grow  into  blueberries  first. 

Harvesting 

Picking  the  blueberries  is  even  easier  than  plant- 
ing the  seeds — simply  move  your  farmer  over 
the  blueberries. 

You  may  notice,  while  picking  blueberries, 
that  when  you  run  over  the  seeds  they  dis- 
appear. You  are  not  picking  the  seeds  back  up 
when  you  do  this.  What  you  are  doing  is 
destroying  them,  and  they  can  no  longer  grow 
into  blueberries. 

You  may  also  notice  that  some  of  the  blue- 
berries turn  red  after  a  while.  This  is  actually  the 
second  stage  of  the  berry  metamorphosis: 
redberries.  The  redberry  stage  represents  the 
degradation  (due  primarily  to  age)  of  the  blue- 
berries. Redberries,  while  they  can  be  picked, 
aren't  worth  as  many  points  as  the  blueberries. 

Redberries  are  less  desirable  not  only  be- 
cause of  their  lower  point  value,  however.  Be- 
cause blueberries  have  already  aged  by  the  time 
they  turn  into  redberries,  redberries  are  suscep- 
tible to  rotting. 

Once  a  redberry  has  rotted  it  turns  white  (al- 
though it  may  appear  a  very  light  green  on  your 
TV).  Whiteberries  are  not  to  be  picked;  in  fact, 
any  farmhand  attempting  to  do  so  will  be  forced 
to  retreat  to  the  farmhouse  to  recover  from  the  ill 
effects. 

The  Payoff 

Each  player  gains  10  points  for  each  seed 
planted,  50  points  for  each  blueberry  picked,  and 
25  points  for  each  redberry  picked.  In  turn,  each 
player  loses  5  points  for  each  seed  run  over  and 
200  points  for  running  into  a  whiteberry. 

The  game  will  end  once  one  player  loses  all 
of  his  farmhands  or  when  one  player  reaches  the 
set  LIMIT,  At  this  point  PLAYER  1  or  PLAYER  2 
at  the  top  of  the  screen  will  flash  to  show  who 
won  the  game. 

Blueberries  can  be  restarted  at  any  time 
while  the  program  is  running  by  pressing  START 
(on  the  Atari).  This,  however,  puts  you  in  the 
option-selecting  mode.  Press  START  again  to  be- 
gin game  play. 


Blueberries  can  also  be  played  with  just  one 
player,  and  since  the  speed  increases  as  the  game 
progresses,  it  can  be  just  as  challenging  as  the 
two-player  game.  The  player  can  play  on  either 
field  by  plugging  the  joystick  into  port  1  or  port 
2.  The  object  of  a  one-player  game  is  simply  to 
beat  a  high  score. 


■jiy.ViJ-»1    SCORE 


SSSft 


SCORE  jaEHUME 


j„"y" 


« J 1 1  ***** 

S  SS  i  iSMf  I  P"'  III  I  iiSSiii 


One  berry  has  turned  overripe  (Atari  version). 


Program  1 :  Atari  Blueberries 

Refer  to  the  "Automatic  Prooffeader"  article  before  lyping  ttiis 
program  in. 

FP  10    GOTO    5000 

IH  100  S1=PEEK  <632)  !  S=PEEK  <633)  s  ST1  = 

PEEK (644) ; ST=PeEK t645) : POKE  7 

7,0: IF  S=15  AND  51=15  THEN  39 

0 
OL  110  DXY1=<S  =  7>-<S=11)+40*((S=13)- 

(B=14) ) : DXY2= ( S 1=7 ) - ( S 1 = 1 1) +4 

0«{ <S1=13)-<S1=14> ) 
BO  120  Z=(SI=7)-(S1  =  1  1  )  :  IF  Z  THEN  FB 

=  68  +  2 
HP  130  IF  ST  DR  (ST  =  0  AND  SD  =  0>  THEN 

POKE  )(Y1,0:  XY1  =  XY1+DXY1 
IB  140  IF  ST  =  0  AND  SD>0  THEN  POKE  XY 

1,70:SOUND  0 , 25 , 10, 8 ; SD=SD- 1 s 

XY1=XY1+DXY1: SC1=SCI+10: SOUND 
0,0,0,0 
BK  170  IF  STl  DR  (ST1=0  AND  SD1=0>  T 

HEN  POKE  XY2, 0: XY2=XY2+DXY2 
EL  180  IF  STi=0  AND  SD1>0  THEN  POKE 

XY2,70:SOUND  1 , 1 0 , 1 0 , 8 : SD 1 =SD 

1-1:XY2=XY2+DXY2:SC2=SC2+10:S 

QUND  1,0,0,0 
KK200  A  =  PEEK  <  XYl  )  :  A1=PEEK  (  XY2> 
HN210  IF  A  =  65  THEN  SOUND  0,250,9,14 

:  XY1  =  XY1-DXY1 : FOR  X  =  l  TO  2:NE 

XT  XiSDUND  0,0,0,0 
PP  220  IF  Al=65  THEN  SOUND  1,200,8,1 

4: XY2=XY2-DXY2: FOR  X=l  TO  2:N 

EXT  X;SOUND  1,0,0,0 
DD  250  IF  A  =  66  THEN  SOUND  0,200,6,10 

;FOR  0=1  TO  50:NEXT  QiSOSUB  B 

00s XY1=XY1-DXY1 :SOUND  0,0,0,0 
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WE  LOVE  COMMODORE 

and 

We  Love  Our  Customers 

That's  why  we  only  sell  and  support  Commodore  64  and  Vic  20 
computers!!  We  have  •  the  best  prices  •  over  1000  programs  •  500 
accessories  •  absolutely  the  best  service  •  one  day  express  mail 
delivery  •  immediate  replacement  warranty  •  15  day  free  trial  •  pro- 
gramming knowledge  •  technical  knowledge  •  we  are  the  only  one 
in  the  U.S.A.  with  complete  support  for  Commodore  64  and  Vic  20 
computers!! 


No  One!  But  No  One!  Can  Compare 


TO 


PROTECTO  ENTERPRIZES 

TO  ORDER  WRITE  OR  CALL:  PROTECTO  ENTERPRtZES.  BOX  550.  BARRINGTON,  IL  60010 


Call  312/  382-5244 

8  to  5  Weekdays      9-12  Saturdays 
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Commodore  64 

(more  power  than  Apple  II  at  half  the  price) 


50* 


$99. 


COMPUTER  AND  SOFTWARE 


SALE 


.   170K  DISK  DRIVE  $159.00  * 

.  TRACTION  FRICTION  PRINTER  $79.00* 


WE 

HAVE 

THE 

BEST 

SERVICE 


WE 

HAVE 

THE 

LOWEST 

PRICES 


VIC-20 

(a  real  computer  at  the  price  of  a  toy) 


«79. 


50 


COM-64  POWER  FOR  VIC-20  $79.00 

NEW  VOICE  SYNTHESIZER  $59.00 
(Com-64  or  VIC-20) 


*  COMMODORE  64  COMPUTER  $99.50 

You  pay  only  $199.50  when  you  order  the  power- 
ful  e4K  COMMODORE  64  COMPUTER!  LESS  the 
value  of  the  SPECIAL  SOFTWARE  COUPON  we 
pack  with  your  compuSer  thai  allows  you  to 
SAVE  OVER  $100  off  software  sale  prices!!  With 
only  SlOO  Of  savings  applied,  your  net  computer 
cost  is  $99.50!! 

•170K  DISK  DRIVE  S159.00 

You  pay  only  $259.00  when  you  order  the  170K 
Disk  Drive!  LESS  the  value  of  the  SPECIAL 
SOFTWARE  COUPON  we  pack  with  your  disk 
drive  that  allows  you  to  SAVE  OVER  $tOO  oft 
software  sale  prices!!  With  only  S100  of  savings 
applied,  your  net  disk  drive  cost  is  $159.00. 

♦  TRACTION  FRICTION  PRINTER  S79.00 

You  pay  only  $179.00  when  you  order  the  Com. 
star  T/F  deluxe  line  printer  that  prints  8  V2  x  11 
full  size,  single  sheet,  roll  or  fan  fold  paper, 
labels  etc.  40,  66,  80,  132  columns,  impact  dot 
matrix,  bi-directional,  80  CPS.  LESS  the  value  of 
the  SPECIAL  SOFTWARE  COUPON  we  pacK 
with  your  printer  that  allows  you  to  SAVE  OVER 
$100  off  software  sale  prices!!  With  only  $100  of 
savings  applied  your  net  printer  cost  is  only 
$79,00. 

4  COLOR  PRINTER/PLOTTER  $99.00 

Lowest  cost.  4  color,  80  column,  letter  quality 
PRINTER/PLOTTER  for  Com-64  Or  VIC-20  com- 
puters!! List  programs.  High  resolution  graphics 
for  charts  and  geometric  figures.  INCLUDES  IN- 
TERFACE AND  SPECIAL  SOFTWARE  SAVINGS 
COUPON!! 

SO  COLUMN  BOARDS99.00 

Now  you  program  60  COLUMNS  on  the  screen 
at  one  time!  Converts  your  Commodore  64  to  80 
COLUMNS  when  you  plug  in  the  80  COLUMN 
EXPANSION  BOARD!!  PLUS— you  can  get  an  60 
COLUf^lN  BOARD  WORD  PROCESSOR  with  mail 
merge,  terminal  emulator,  ELECTRONIC 
SPREAD  SHEET.  List  S59.0O  SALE  $24.95  if  pur- 
chased with  BO  COLUMN  BOARD!!  (Tape  or 
Disk) 

80  COLUMNS  IN  COLOR 
EXECUTIVE  WORD  PROCESSOR  $69.00 

This  EXECUTIVE  WORD  PROCESSOR  is  the 
finest  available  for  the  COh/IMODORE  64  com. 
puter!  The  ULTIMATE  tor  PROFESSIONAL  Word- 
processing  application!  DISPLAYS  40  OR  80 
COLUMIMS  IN  COLOR  or  Black  and  White!  Sim- 
ple to  operate,  powerful  text  editing  with  a  250 
WORD  DICTIONARY,  complete  Cursor  and  in- 
sert/delete key  controls  line  and  paragraph  inser- 
tion, automatic  deletion,  centering,  margin  set- 
tings and  output  to  all  printers!  Includes  a 
powerful  mail  merge.  20,000  WORD  DIC- 
TIONARY •  List  $24.95  SALE  $19.95.  EXECUTIVE 
DATA    BASE  ■    List    $69.00   SALE    S49.00.    (Disk 


SPECIAL  SOFTWARE  COUPON 

Wo  pack  a  SPECIAL  SOFTWARE  COUPON  H 

witti  every  COMMODORE  64  COMPUTER- ■ 

DISK  DRIVE-PRINTER-MONITOR  we  sell!  | 

This  coupon  allows  you 

to  SAVE 

OVERH 

$100  OFF  SALE  PRICES! 

Up  to  $500  sav-B 

ings  are  possible!! 

PROFESSIONAL  SOFTWARE 

COMMODORE  64 

Nim* 

U>l 

$•!■ 

Coupon 

Bieculire  Word 

Processor 

S99.00 

«9,00 

$59.00 

BiBcutive  DataBase 

S69-00 

S59  00 

$39.00 

20.000  Word  Dictionary 

S24.95 

S19,95 

$14.95 

Elecimnic  Spreadshoel 

559.95 

J4900 

$39.00 

Account  mg  Pack 

149.00 

S39  0O 

$29-00 

Total  S.2 

Word  Processor 

Tape 

S69.00 

J4900 

$34.00 

Disi< 

J79.95 

$59.00 

$39,00 

Total  Tbx!  2.6 

Word  Processor 

Tape 

$M-95 

S34.95 

$22,00 

Disk 

$49.00 

S39.00 

$27,00 

Total  Label  2.6 

Tape 

t24.95 

tlB.OO 

$12-00 

Disk 

S29.95 

S2300 

$15.00 

Proflrammers 

Helper  IDski 

S59.00 

539-95 

$2995 

80  Column  Screen 

<Disk) 

S59.95 

J3995 

$29.95 

Crusn-Oumtiie-Cnomp 

frape/Disk) 

S29.95 

$24,95 

$19.95 

PilsloplCartrmsei 

539.95 

$29,95 

$24.95 

Typing  Teacher 

fTapB(DisK) 

$29.95 

$2495 

$15,00 

Sprite  tiesienef  IDisIs) 

J  16.95 

$14.95 

$10,00 

FireballJoy  Stick 

$24.95 

$15.95 

$10.00 

Liohl  Pen 

S39.95 

$16,95 

$14.95 

Dust  Cover 

S  8,95 

$  G.95 

$  4.60 

iSee  100  coupon  items  m  our  catalog  <} 

Write  or  call  lor 

Sample  SPECIAL  SOFTWARE  COUPON!    ■ 

^mm^^^^^^^^^^m 

^^^^^H 

^^^^^H 

EXECUTIVE  QUALITY 
PROFESSIONAL  BUSINESS  SOFTWARE 

The  Cadillac  ol  business  programs 
lor  Commodore  64  Computers 

IMm  Ll*t  'SALE  Coupon 

InvenlOry  ManaflemenI  $96.00  $69.00  $49.00 

Accounts  Receivable  $99.00  $69.00  $49.00 

Accounts  Payable  $99.00  $59.00  $49.00 

Payroll  $99.00  $59.00  $49.00 
General  Ledger 


$99.00        $59.00  $49.00 


VIC-20  COMPUTER  $79.50 

This  25K  VIC-20  computer  includes  a  full  size  66 
key  typewriter  keyboafd  color  and  graphics  keys, 
upper/lower  case,  full  screen  editor.  IgK  level  II 
microsoft  basic,  sound  and  music,  real  time 
floating  point  decimal,  self  teaching  book,  con- 
nects to  any  T.V.  or  monitor! 

COM-64  POWER  FOR  VIC-20    $79.00 

Just  plug  in  our  32K  RAM  MEMORY  EXPANDER 
and  you  gel  as  much  usable  programming  power 
as  the  Commodore-64  computer!!  Master  control 
switches  on  cover.  Gold  Edge  connectors,  five 
year  warranty  IFREE  $29.95;  CARTRIDGE  GAME) 

NEW  VOICE  SYNTHESIZER  $59,00 

For  Com.64  or  VIC-20  computers.  Just  plug  it  in 
and  you  can  program  words  and  sentences,  ad- 
just volume  and  pitch,  make  talking  adventure 
games,  sound  action  games  and  customized 
talkies!!  FOR  ONLY  $19.95  you  can  add  TEXT 
TO  SPEECH,  just  type  a  word  and  hear  your 
computer  talk-ADD  SOUND  TO  "ZOHK," 
SCOTT  ADAMS  AND  AARDVARK  ADVENTURE 
GAMES!!  (Disk  or  tape). 

16K  RAM  CARTRIDGE  $49.00 

Increases  VIC-20  programming  power  4  times. 
EKpands  total  memory  to  41K  |41,000  bytes). 
Memory  block  switches  are  an  outside  cower! 
CARDCO  includes  FREE  S29.95  game! ! 

8K  RAM  CARTRIDGE $34.95 

Increases  VIC-20  programming  power  2  V2 
times.  Expands  total  memory  to  33K  (33,000 
bytes).  Includes  FREE  S16.95game, 

3  SLOT  SWITCHABLE  EXPANDER  $24.95 

Allows  you  to  add  3  cartridges  at  one  lime- 
switch  select  to  turn  slots  on  or  off— PLUS  reset 
button.  A  must  (or  your  VIC-20  computer! ! 

60K  MEMORY  EXPANDER  $49.00 

Sixslot  Board  —  Switch  selectable  —  Reset  but- 
ton —  Ribbon  cable  —  CARDCO.  A  must  to  get 
the  most  out  ol  your  VIC-20  Computer! 

9'  GREEN  SCREEN  MONITOR  S69.00 

Excellent  quality  SANYO,  easy  to  read,  80  col- 
umns X  24  lines,  Greeri  Phosphorous  screen 
with  antiglare,  metal  cabinet!  Saves  your  T.V, 
PLUS  $9.95  for  connecling  cable,  Com-64  or 
VIC-20. 

12'  GREEN  OR  AMBER  MONITOR  $99,00 

Your  choice  of  green  or  amber  screen  monitor, 
top  quality.  SANYO,  80  columns  x  24  lines,  easy 
to  ready,  anti-glare,  faster  scanning!  A  must  for 
word  processing  PLUS  S9.95  for  connecting 
cable.  Com-64  or  VIC-20. 


•  LOWEST  PRICES  •  15  DAY  FREE  TRIAL  •  90  DAY  FREE  REPLACEMENT  WARRANTY 
•  BEST  SERVICE  IN  U.S.A,  •  ONE  DAY  EXPRESS  MAIL  •  OVER  500  PROGRAMS  •  FREE  CATALOGS 


I  Add  StO.OO  for  shipping,  nandling  and  insurance.  Illinois  residents 
i  please  add  6%  tax.  Add  $20.00  tor  CANADA,  PUERTO  RICO,  HAWAII 
I  orders.  WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES. 
I  Enclose  Cashiers  Check.  Money  Order  or  Personal  Check.  Allow  14  days 
I  for  delivery,  2  to  7  days  lor  pfione  orders.  1  day  express  mail!  Canada 
j  orders  must  be  in  U.S.  dollars.     VISA  —  MASTER  CARD  -  COD 


CMTCDpD|7CC    IWELOVEOUR  CUSTOMEFtSi 

BOX  550,  BARRINGTON,  ILLINOIS  60010 
Phone  312/382-5244  to  order 


HC  260  IF  Al=66  THEN  SOUND  1,200,6,1 

SiFOR  D=l  TO  50:NEXT  Q:GOSUB 

a50:XY2=XY2-DXY2 
EE300  POKE  XYl,6a:POKE  XY2,FB:  SOUND 

1,0,0,0 
HE310  IF  A  =  71  THEN  SC  1  =SC  1 +50  :  U  =  USR 

< 1630) 
KN  320  IF  Al=71  THEN  SC2  =  SC2  +  50 :  U  =  US 

R  C 1653) 
HJ  330  IF  A=72  THEN  SC  1  =SC  1 +25:  U  =  USR 

(1630) 
LC  340  IF  Al=72  THEN  SC2  =  BC2  +  25 :  U  =  US 

R ( 1653) 
FQ  350  IF  A  =  73  THEN  C  =  3a:G0TD  2000 
FN  360  IF  Al=73  THEN  C  =  6:GaT0  2020 
BC  370  IF  A  =  70  THEN  SOUND  0,100,10,8 

s SCl=SCl-5: SOUND  0,0,0,0 
CD  380  IF  Al=70  THEN  SOUND  1,75,  10,  B 

: SC2=SC2-5: SOUND  1.0,0,0 
IF  390  POSITION  26,1:?  SCI;"  ":POSIT 

ION  9,1:':>  302;"   "  :  POKE  SAVMSC 

+55, 226: POKE  SAVhSC+72,40 

fiP 400     IF     PEEK C53279) =6     THEN     2170 
flfi410     IF     SC1>=LIM     OR     SC2>=LIM     THEN 

2  100 
Je420     LV  =  210+(SC1+SC2)«1.  7E-03  +  0.5 
EM  430     IF     Ly>255     THEN     LV  =  255 
DE  440     POKE     255,  LV 
BD  450     GOTO     100 
Hfl800     SD=INT(50*RND(0)+51)-INT(SC1/ 

5000)+ INT  CSC2/1000) 
ESB10     IF     SD<25     THEN     SD=  INT  C  50«RND  (  0 

)  +51  ) 
HKS20     RETURN 

t:6B50     SD1  =  INT(50*RND(0)+51)-INT(SC2 

/5000)+INT<SCl/1000) 
!>i  B60     IF     SDK25     THEN     SD  1  =  I  NT  (50  «RND 

(0) +51  ) 
HP  870     RETURN 

EB  1000     POKE     559,0:7     "HEESaKl    SCORE 
^3     SPACES]  raEtaJHTB       SCORE    r-JWT 

?     "HANDS     3        0C5     5PACE53^I3U[JS 
[=iatW=g-~0  { 5     SPftCESJHANDS     3     "; 
?     ••  <.A0     fiJ  "  ; 

?     "  i2     Al<:i5     SPACES>{:2     A> 
{19    SPACES}  {BXAJ  "  ; 
JF  1050    ?    ■■<:2    A3     C7    a:     -CA>     <:3    A> 


DB  10  10 

Kt;  1030 
IK  1040 


iA     SPACES] 


^AJ      {5     A>      {A> 


<:2     AJ      <2     A>      <.2.     AJ"; 
JK  1060     ?     '■<:2     P>y  <.?     SPACESliA:      fAl 

{3  A>  <.A   A>  <:a>{:5  spaces: 
ca:  tAJ  <:aj{:3  spacesj^a: 

Z2.     A>  "  ; 
Jt:i0  70  ?  "  i2     A  J  {5  AJ  CAJ  <CA>  CAJ 

<:i0  SPACESJ<:3  A>  {A}  <A>  {AJ 

^AJ  CAJ  {2  A>"; 
JO  1080  ?  "<:2  A>  CADO  SPACES><A> 

CAJ  if^J         €3  A>  C7  Al  {A> 

CA>  <:A>  fA>  <:AJ  {2  A1"; 
JI  1090  ?  "C2  AJ  {A}  'C5  A> 

<:6  spaces:  <:a} -cs  spaces><;a> 

t5  SPACES}  <[A}  t3  SPACES}  CA> 
{A}  <A}  i2     AJ"; 
JK1100  ?  "{2  A}   tAJCS  SPACESJtAJ 

{6  A}  <:3  A}  <A}  {6  A}  i2     A} 
{A}  tA}  {2  AJ"; 

IH1110  ?  "<:a}<:b}<:3  spaces}<3  a} 

{:i0  SPACES}{:3  A}^:i7  spaceb> 


KK  1  120 

y.i  1 130 

IP  1  140 


JP  1150 


JG  1  160 


JO  1  170 


JH  1  180 


JL  1  190 


JH  1200 


IJ  1210 

KL  1220 
LM  1250 


BB  1260 
PB  1300 

HE  1305 


AB  13  10 
80  1320 
DK  1330 


KB  1340 

K£  1350 

HI  1360 
EH  1400 

EI  14  10 

PH  14  2  0 

M.  1430 
IP  1440 
FE  1450 


^2  AJ 
?  ■■  <:4 
?  "  €4 
?  "  C2 
<:10  S 
CB}  {A 

?  "  {:2 

CA> 
tS  SP 
?  "{2 
{3  SP 
tS  SP 

<:a} 

?  "  C2 

CAJ  <: 

{AXS 
?  "  <.2 

{A}  <: 

CA}  C 

?  "<:2 

<A}  < 
{3  A} 


0  A}  " 
0  A}  " 

A>  tl 
PACES 
}■■; 

AJ  C 
C3  A> 
ACES> 

A}  { 
ACES> 
ACES> 
t2  AJ 

A}  t 
7  AJ 

SPAC 

A>  -C 
3  A}  <: 
5  A} 

A>  € 
A}<:5 

<:a} 


7  SPACES}  <:3  A} 
}<:3  A}<:3  SPACES} 


A>  <. 
{6 

<:a> 

A>  t 

{A}  <: 

fAX 

A}  { 
<3  A 
ESJ  C 
A}  < 
10  S 
<.2  A 
A}  {3 
SPAC 
CA}  <: 


A} 
A> 

<:2 

A> 

5 
6 

A> 


{2  A>  {6  A} 

CAJ 

A>"; 

<A} 
SPACES} {A> 
SPACES}<5  AJ 


{A}  {A} 
}  CA}  <:a} 
A}  t2  A>"; 
A}  CA}  {A} 

paces>{:a}  <:a> 
>■'; 

SPACES} tA} 
ESJtA}  <;4  A} 
7  SPACES}<:2  A} 


?  '■<:2  A}  t2  A}  {2  A}  CA} 
<:5  A>  <A}  <A}C4  SPACES}  <:3  A} 
tA}  iV    A}  {2  A}"; 

?  "<:a}<:b}ci9  spaces}<:2  a} 

€15  SPACES}t2  A}"; 

7  "f40  A}"; 

SAVMSC=PEEK ( 88 ) +256*PEEK ( 89 ) 

: XYl=SAVMSC+557: XY2=SAVMSC+4 

02:FB=67:PDKE  XY1,68:P0KE  XY 

2,FB 

U  =  USR  (1676)  ; SC1=0: SC2  =  0: BOTO 

G 
POKE  84,22:7  "C3  SPACES}PRES 
S  OPTION" ;: POKE  85,20:7  "   P 
RESS  SELECT"; 

A$="<3     SFACES}i:CiM*4=fc*1"  s  LIM  = 
1.0E  +  95:  Al*="     acmiISa":L  =  3:L 
i=3:POKE     84,23:P0KE     85,2:7     A 
$; : POKE     85, 23: 7     Al«; 
POKE     559,34:P0KE     53279,8 
PK=PEEK (53279) 

IF  PK=6  THEN  POKE  559,0: FOR 
G=l  TO  125:NEXT  QiPOKE  559,3 
4:QID=L:G0T0  100 
IF  PK=3  THEN  SOUND  0,200,10, 
10:GQSUB  1400 

IF  PK=5  THEN  SOUND  0, 100, 10, 
10:GQSUB  1500 
GOTO  1310 

IF  A«="C3  SPACES}i:riM»i4SKT"  T 
HEN  A«  =  "  HUniMMiaHa"  :LIM  =  5  0 
00:GOTa     1600 

IF  A*="  HUmMMlSgSi"  THEN  A* 
=  "  DOmniMSlSISj"  s  LIM=10000j  GO 
TO     1600 

IF  A$="  HiIiI»IiM»4aN*i"  THEN  A* 
=  "  t^^I'IiliMWi^Zli*!"  :  LIM  =  50000;  GO 
16  00 


TO 

IF  A$="  kfiTil5lsM<i«(riri"  THEN  A* 
=  "  HiIsIiMsMiHa^*!"  :  L  I  M~  100000  : 
GOTO     1600 

IF  A«="  tCiTsIsIsIiai^^ahiln"  THEN  A 
«="  hfilsIiMiMBiNa^*!"  :  LIM  =  500000 
:GQTO     1600 

A*="     U-fiIiTiIi^»*<=li*i"     THEN     A 
<:3     SPACES}C:iiMS3SESi":LIM=l 


IF 

*=' 

.0E+95:GOTO     1600 


8^     COMPUTE!      July  1984 


HB  1500     IF    Al*=-'     EKinilEa"     THEN    Al*=" 

^■HnH^"  :  L  =  5:  L  1=5:  POKE     SAVM         BP  2250 
SC  +  46,  L+l<b:  POKE     SAVMSC  +  7a,Ll 
+16:G0T0     1600 

BO  1510   IF  Ai*="  acnuEa"   then  Ai*="      ck  22^0 

^■mCnH"  :  L  =  3:  L  1=3:  POKE  SAVM    HN2270 

SC  +  46,  L  +  16:  POKE  S  A  VMSC  +  7a\,  L  1    JN22B0 

+16:60T0  1600 
ED  1600  POKE  a4,23:P0KE  85,2:?  A*;" 

CA     SPACES} ";: POKE  85,23:?  Al 

t;;SOUND  0,0,0,0:FOR  Q=  1  TO     EH  2290 

50:NEXT  D:RETURN 
S6  2000  FOR  Q  =  74  TO  77:P0KE  XY1,D:S0    BO  5000 

UND  0, 2*Q, 8, 7: SOUND  1,250-2* 

Q,6,6:FDR  T=l  TO  15:NEXT  T:N    H5010 

EXT  Q:GOSUB  2200 
m'2&10     SOUND  0,  0,  0,  0:  SOUND  1,0,0,0:     IC  5020 

POKE  XY1,C0:G0T0  2040  EF  5030 

GO  2020  FOR  Q  =  74  TO  79;  POKE  XY2,Q:SD    J6  5040 

UND  0, 2*Q, 8, 7: SOUND  1,250-2* 

Q,6,6:FDR  T=l  TO  15:NEXT  T:N 

EXT  Q:GDSUB  2250 
!:E  2030  SOUND  0  ,  0  ,  0  ,  0  :  SOUND  1,0,0,0:    fil  5050 

POKE  XY2,CO 
NK  2040  IF  C  =  6  THEN  L  1  =L  1  -  1  :  SC2  =  SC2- 

200: POSITION  C, 1 : ?  LI 
HL  2050  IF  C  =  38  THEN  L  =  L- 1  :  SC  1  =SC  1 -2    M5100 

00: POSITION  C, 1 : ?  L 
flA2060  IF  L1=0  OR  L  =  0  THEN  POSITION    LJ  5  1  1 0 
9,1:?  SC2:P0SITI0N  26,1:?  S 

C1:G0T0  2100  EF5120 

JE  2080  GOTO  100 
P!12100  IF  SC1>SC2  THEN  B*="PLAYER  2    F«5130 

"  :  Bl*="[aHIKaMiaE"  :  C  =  32:  GOTO  2 

120 
AO2110  Bt="PLAYER  1  "  :  Bl  «=  "QBIQMI^"    El5140 

:  C  =  0  DA  5  150 

ED2120  POSITION  C,0:?  BS;:FOR  X  =  l  T 

0  25:NEXT  XsPOSITION  C,0:?  B 

1  *  ;  OD  5  1  6  0 
6D2130  POKE  53279,8 

BP2140  PK  =  PEEK  (53279) 

JI121S0  IF  PK07  THEN  2170  NS  5  1  70 

QE2160  C0L  =  C0L  +  l5lF  C0L>15  THEN  COL    PL  5200 
=  1 

Bfl2165  SETCOLDR  4,C0L,6:GGT0  2120      HL  5300 

LB2170  GRAPHICS  0;POKE  752,1:P0KE  7 

56,CHBAS:P0KE  16,64:P0KE  537    W 53 1 0 
74,64 

PF2180  SETCDLOR  2  ,  1  5  ,  6:  SETCOLDR  1,1    flE  5320 
5,  14:SETC0L0R  4,  1 0, 4 ; PDS I T I  0 
N  0,  0!  L  =  QID:  L1=L:  G  =  2190:  GOTO    LD  5330 
1000 

GC2190  POKE  84,22:?  "  <.Z     SPACESJPRES    LI  5340 
S  OPTION" ; :POKE  85,20:?  "   P 
RESS  SELECT"  ;:  POKE  a4,23:PDK    EP  5350 
E  85,2:?  A«;:POKE  85,23:?  Al    Hfl  5360 

*; 

KP2195  POKE  SAVMSC  +  46,L4-16:  POKE  SAV    flP  5370 

MSC+78, Ll+16: GOTO  1310 
BO  2200  IF  PEEK  (53770)  >127  THEN  POKE    FC  53B0 
XYl  ,  0:  XYl=SAVMSC  +  557:  GOTO  2    OE  5390 

220 
BN2210  POKE  XYl  ,  0:  XYl=SAVMSC  +  802       flJ  5400 
JH2220  IF  L=l  THEN  CO  =  79:  RETURN 
[H2230  FOR  Q  =  79  TO  74  STEP  -1:  SOUND    116  5410 
0,  2tQ,  a,  6:  SOUND  1.250-2«Q,6    BJ  5420 

,7:P0KE  XY1,Q:FDR  T=l  TO  15: 

NEXT     T:NEXT     Q  JB  5430 

CD2240     SOUND     0  ,  0  ,  0  ,  0  :  SOUND     1,0,0,0: 


CQ=6B: RETURN 

IF  PEEK(53770) >127  THEN  POKE 

XY2, 0: XY2=SAVMSC+402: GOTO  2 
270 

POKE  XY2,0: XY2=SAVMSC+157 
IF  Ll=l  THEN  C0=79:RETURN 
FOR  Q=79  TO  74  STEP  -1:SDUND 

0, 2*Q, 8, 6: SOUND  1,250-2*Q,6 
,7:PQKE  XY2,Q:FDR  T=l  TD  15: 
NEXT  T:NEXT  Q 

SOUND  0, 0, 0, 0: SOUND  1,0,0,0: 
CO=FB: RETURN 
CHBAS=PEEK(742)-4:D=<PEEK(74 

2) -4) «256 

RESTORE  5040:FOR  X=1536  TO  1 

591 

READ  Y:PDKE  X,Y 

NEXT  X : U=USR ( 1536) 

DATA  104,173,244,2,133,204,1 

69, 0, 133, 203, 133, 205, 173, 230 

,2, 56. 2  33, 4, 133, 206, 133,207, 

162, 0, 160, 0, 177, 203 

DATA  145,205,192,255,240,4,2 

00, 24. 144, 24  4, 224, 3, 24  0, 8, 23 

2, 2  30, 206, 230, 20  4,24,  144, 230 

, 165,207, 141, 244, 2, 96 

GRAPHICS  17:P0KE  16,64:PQKE 

53774, 64 

?  tt6:  ?  #6: ?  #6 : ?  #6;  " 

<.?     SPACES}  l:*<ri:*i<:U" 

?  #6:?  #6;"  {5  SP  ACES>  [HSBHUMI] 

l:>i<*1" 

?  #6:?  #6:?  #6:?  #6:?  #6:?  # 

6:?  #6:?  #6;"   GTIA/CTIA  CG/ 

C)  ?" 

POKE  764,255 

IF  PEEK(764)=18  THEN  C1=71:C 

2=72:?  #6;-'<:4  SPACES  >a^E"  :  G 

OTO  5200 

IF  PEEK(764)=61  THEN  C1=72:C 

2  =  71:?  #6;"<:4  SPACES]  tTilE"  :  G 

OTO  5200 

GOTO  5  140 

?  «6:^  #6:?  #6;"    PLEASE  WA I 

T  .   .   .  " 

DATA  104,169,255,141,0,210,1 

69, 164 

DATA  141,1,210,32,79,6,169,2 

00 

DATA  141,0,210,169,162,141,1 

,210 

DATA  32,79,6,169,150,141,0,2 

10 

DATA  169,162,141,1,210,32,79 

,  6 

DATA  32,79,6,169,0,141,0,210 

DATA  162,0,232,224,150,208,2 

51 , 169 

DATA  125,141,0,210,169,172,1 

41,1 

DATA  210,32,79,6,169,0,141,0 

DATA  210,169,0,141,1,210,96, 

162 

DATA  0,232,160,0,200,192,255 

,  208 

DATA  251,224,3,208,244,96 

DATA  169,155,141,2,6,169,100 

,  141 

DATA  15,6,169,50,141,28.6,16 

9 
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BF  5440  DATA  75,141,56,6,76,0,6. 
BB5450  DATA  1  6*?  ,  255,  14  1  ,  2  ,  6  ,  1  69  ,  200 

,  141 
flF5460  DATA  15,6,169,150,141,28,6,1 

69 
JE5470  DATA  125,141,56,6,76,0,6 
C!  5480  DATA  104,169,255,133,254,160 

,  155 
£J  5490  DATA  162,6,169,7,32,92,223,9 

6,  165 
FO  5500  DATA  255,197,254,240,5,198,2 

54,  24 
FH5510  DATA  144,59,169,255,133,254, 

162,  0 
IK5520  DATA  134,253,165,88,133,252, 

24, 165 
HH5530     DATA     89,101,253,133,253,172, 

10, 210 
CH5540     DATA     177,252,201,70,208,7,16 

9,71 
EO5550     DATA     145,252,24,144,19,201,7 

1,  208 

1115560     DATA     7,169,72,145,252,24,144 

,8 
CS  5570     DATA     201,72,208,4,169,73,145 

,  252 
CM  55S0  DATA  232,224,4,208,203,76,98 

,  228 
LI  5590  RESTORE  5300:FDR  X=1536  TO  1 

763 
FH  5600  READ  Y:POKE  X,Y:NEXT  X 
NJ  6000  FOR  X=l  TO  15:READ  A:  IF  A  =  -l 

THEN  A=C1 
FF6010  IF  A  =  -2  THEN  A  =  C2 
AC  6020  Z  =  A«8 
CJ  6030  FOR  Y  =  0  TO  7:  READ  N1:P0KE  Z  + 

D+Y,N1:NEXT  Y:NEXT  X 
LD  6040  POKE  82,0:  POKE  83,  40:  DIM  A*  < 

15) , Al* C 10) , BS (8) . Bl* <8) : COL 

=  0 
LH  6050  GRAPHICS  0:POKE  752,1:  POKE  7 

56, CHBAS: POKE  16,64:P0KE  537 

74,  64 
flN6060  SETCOLOR  2 , 1 5 , 6 : SETCOLOR  1,1 

5,  1  4: SETCDLOR  4 ,  1 0 , 4 : FOS I T I  0 

N  0, 0: G=1300: GOTO  1000 
!t;  6070  DATA  65,127,246,127,246,127, 

246, 127, 246 
flB6080     DATA     66,24,60,126,255,102,10 

2 , 10  2, 102 
FC  6090     DATA     67,0,4,14,4,30,36,74,17 
CE6100     DATA     68,0,8,28,8,62.8,20,36 
DP6110     DATA     69,0,32,112,32,120,36,8 

2,  136 

866120     DATA     70,0,0,0,0,48,0,0,0 
Ai:6130     DATA     -1,0,8,42,42,42,42,8,0 
IC6140     DATA     -2,0,16,84,84,34,84,16, 

0 
Eh6150     DATA     73,0,24,126,126,126,126 

,  24.  0 
IB6160     DATA     74,0,16,56,16,56,16,40, 

0 
IH6170     DATA     75,0,0,16,56,16,56,56,4 

0 
HO6180     DATA     76,0,0,0,16,56,124,56,4 

0 
IC6190     DATA     77,0,0,0,0,16,56,254,23 

8 
ED  6200     DATA     78,0,0,0,0,0,16,186,255 
KF6210     DATA     79,0,0,0,0,0,0,16,56 


The  blueberries  have  just  ripened  in  this  64  version  of 
"Blueberries." 


Program  2:  Blueberries,  64  Version 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in. 

10  GOTO5000  J  rem  95 

1130    Sl=PEEK(Jl):S=PEEK(J0)!SV={SlAND16)/i 
6iSU=(SAND16)/16:Sl=SlAND15:S=SAND15 

: rem  99 

105  1FS=15ANDS1=15THEN380  :rem  223 
110  D1=(S=11)-(S=7)+40*((S=14)-(S=13)):D2 

=(S1=11)-(S1=7)+40*((S1=14)-(S1=13)) 

:rem  137 
130  IFSUOR{SU=0ANDSD=0)THENPOKEX1, 32:X1=X 

1+Dl  :rem  74 

140  IFSU=0ANDSD>0THENPOKEX1, 70: SD=SD-1 rXl 

=X1+D1:SA=SA+10:F=25:GOSUB  2500 

:rem  135 
1 70  IFSVOR ( SV=0ANDSE=0 ) THENP0KEX2 , 32 : X2=X 

2+D2  :rem  85 

180  IFSV=0ANDSE>0THENPOKEX2 , 70 : SE=SE~1 : X2 

=X2+D2;SB=SB+10:F=10:GOSUB  2600 

:rein  144 
200  A=PEEK(X1) :A1=PEEK(X2)  : rem  248 
210  IFA=65THENX1=X1-D1jF=250:GOSUB  2500 

:  rem  0 
220  IFA1=65THENX2=X2-D2:F=200:GOSUB  2600 

;rem  49 
250  IFA=66THENGOSUB800:X1=:X1-D1:F=200:GOS 

UB  2500  :rem  82 

260  IFA1=66THENGOSUB850 :X2=X2-D2 i F=200 :GO 

SUB  2600  :rem  141 

300  POKEXl , 68 : POKEXl+CO , 7 : P0KEX2 , 68 : POKEX 

2+CO,7  :rem  151 

310  IFA<70ORA>73THEN350  ; rem  88 

320  ON(A-69)GOTO330, 331, 332,333   :rem  123 

330  SA=SA-5 : F=100 :GOSUB2500 :GOTO350 

:rem  55 

331  SA=SA+25:GOTO350  : rem  153 

332  SA=SA+50:GOTO350  :rem  152 
3  33  C=0:GOTO2000  ; rem  126 
350  IFA1<70ORA1>73THEN3B0  : rem  193 
360  ON(A1-69)GOTO370, 371,372, 373  irem  192 

370  SB=SB-5:F=75;GOSUB2600:GOTO380trem  28 

371  SB=SB+25:GOTO380  : rem  162 
37  2  SB=SB+50:GOTO3B0  ;rem  161 
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Notes  On  The 
Commodore  64  And  IBM 
PC/PCjr  Versions  Of 
Blueberries 

The  64  and  PC/PCjr  versions  are  the  same 
as  the  Atari  version  except  for  the  scoring 
routine  and  the  berrj'  development  routine. 
The  blueberries  in  these  versions  have  four 
stages  of  development:  the  seed,  the  un- 
developed berry,  the  mature  berry,  and  the 
overripe  berry. 

If  you  pick  the  berry  before  it  has  had  a 
chance  to  sprout,  you  have  five  points  de- 
ducted from  your  score.  If  you  pick  an  un- 
developed berry,  you  only  get  25  points.  If 
you  pick  the  berry  when  it  is  ripe,  you  re- 
ceive the  full  50  points.  If  you  pick  an  over- 
ripe berry,  your  farmhand  becomes  sick  and 
you  lose  200  points. 

In  the  Atari  version,  berries  ripen  at 
random  times,  but  in  the  64  and  PC/PCjr 
versions  all  the  berries  on  the  screen  ripen 
at  the  same  time.  However,  the  amount  of 
time  required  for  the  berries  to  ripen  is 
determined  randomly.  Both  versions  require 
two  joysticks  to  play,  and  the  Color/ 
Graphics  Monitor  Adapter  board  is  required 
to  use  Program  3  on  an  IBM  PC. 


AA  AAAAAAA  A  A  A  A  A  AA"  r     :  rem  44 
1090  PRINT"AA  A  AAAAA[6  SPACES }a 

(5  SPACESTaT5~SPACES]a[3  SPACES }A  A 
{space} A  AA" ;  : rem  230 

PRINT"AA  aTS  spaces} a  AAAAAA  AAA  A  A 
AAAAA  AA  A  A  AA"  ; 


373  C=1:GOTO2000  : rem  131 

380  PRINT" {HOME) (DOWN} {25  RIGHT}"SB" 

[left)  "  :rem  219 

385  PRINT" {HOME} {DOWN} {8  RIGHT } "SA" {LEFT} 

:rem  242 
390  IFSA>=LIORSB>=LITHEN2100  :rem  7 
395  GOSUB  2700  : rem  234 

400  CN=CN+1 :IFCN<30+RND(1)*20THEN100 

: rem  37 

4X0  CN=0:SYS49152:GOTO100         : rem  213 

800  SD=INT(50*RND(1)+51):RETURN    :rem  72 

850  SE=INTC50*RND(1)+51) ;RETURN    : rem  78 

1000  POKE53280,0:POKE53281,0       : rem  22 

1005  PRINT" {GLR}E7E{RVS}PLAYER  1{0FF}  SCO 

RE{3  SPACES}PICKIN' {2  SPACES}SC0RE 

{RVS} PLAYER  2 {OFF}";  : rem  33 

1010  PRINT" HANDS  3{2  SPACES }0{ 5  SPACES }BL 

UEBERRIES0{5  SPACES} HANDS  3  "r 

:rem  164 

1020  PRINT " g 2 jAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAA" ;  :rem  140 

1030  PRINT"AAtl5  SPACES  1aa{  19  SPACES }BA",- 

:rem  87 
1040  PRINT"AA  AAAAAAA  A  AAA{4  SPACES}A  A 

(spaceJaaaaa  a  AA  AA  AA";     : rem  44 
1060  PRINT"AAl7  SPACES} A  A  AAA  AAAA  A 
{5  SPACES  J A  A  A{3  SPACES] A  AA" ; 

:rem  101 

1070  PRINT"AA  AAAAA  A  A  A{10  SPACES} AAA  A 

AAAA  AA";  :  rem  232 

1080  PRINT"AA  aTS  SPACES }A  A  A{2  SPACES} A 


1100 

1110 
1120 
1130 
1140 
1150 
1160 

1170 

1180 
1190 
1200 
1210 
1220 
1250 


1260 
1270 
1280 

1300 


1301 

1305 

1306 

1310 
1330 
1340 
1350 
1360 
1400 

1410 

1420 

1430 

1440 

1450 


:rem  104 

PRINT"AB{3  SPACES }AAA{ 10  SPACES} AAA 
{17  SPACES} AA";  : rem  90 

P RI NT " AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


AAAAAAAAAA" 


:rem  248 


PRINT "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAA" ;  : rem  249 

PRINT "AATT7  SPACES }AAA{ 10  SPACES) AAA 
{3  SPACES }bA";  :rem  93 

PRINT"AA  A  A  AA  AAAAAA  A  AAA  AAAAAA 
{SPACETa{5  SPACES) a  AA" ;     :rera  109 
PRINT"AA  A  A  A{3  SPACES}A{5  SPACES)A 
{5  SPACESTaT6  spaces ) AAAAA  a  AA"; 

: rem  228 
PRINT"AA  AAAAA  AAAAAAA  AAA 
{2  SPACESTa  a  aT5  spaces) A  AA" ; 

:rem  44 
PRINT"AA  AAAAA  AAA{10  SPACES )A  A 
A  AAAAA  AA";  : rem  234 

PRINT"AA  aTS  SPACES}a  A  A{5  SPACES}A 
AAAA  AAA  A  A{7  SPACEsTaA" ;  :rem  105 
PRINT "AA  AA  AA  A  AAAAA  A  A{4  SPACES} 
AAA  A  AAAAAAA  AA" ;  ;rem  42 

PRINT"AB{19  SPACES }AA{ 15  SPACES )AA"? 

:rem  87 
PRINT "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAA";  :rem  249 

Xl=1426 : X2=1581 : CO=54272 : POKEXl , 68 : P 
OKEXl+CO , 7 : P0KEX2 , 68 : P0KEX2+C0 , 7 

:rem  118 
SA=0:SB=0:J0=56321sJl=J0-l  :rem  194 
FORI =COTQCO+24:POKEI,0: NEXT  :rem  22 
POKECO+24,15:POKECO+5, 16:POKECO+6, 24 
0:POKECO+12,16;POKECO+13, 17  :rem  245 
PRINT" [GRN) {HOME} {22  DOWN} 
{10  SPACES} PRESS  E63SPACE{GRN]  TO  PL 
AY"  :rem  197 

PRINT" {CYNl {5  SPACES}PRESS  'F1' 
{10  SPACES} PRESS  'F3'"       :rem  219 
A?="{3  SPACESlNO  LIMIT" :LI=1E38 :A1?= 
"  3  HANDS" :L=3:L1=3  :rem  199 

PRINT" {3  SPACES} "A?" {3  SPACES}"," 
{5  SPACES} "Al$" {UP}"  srem  31 

GETI?:IFI$=""THEN13I0  i rem  189 
IFI?="  "THEN100  trem  4 

IFI$="{f1)"THEN1400  :rem  190 
IFI$="{F3)"THEN1500  :rem  193 

GOTO1310  ;rem  200 

IFA?="{3  SPACES}N0  LIMIT"THENA$=" 
[2  SPACES)  5000  LIMIT"  ;LI=5000:GO'rO13 
06  :rem  189 

IFA$="{2  SPACES}5000  LIMIT"THENA$=" 
{2  SPACES}10000  limit" :LI=10000:GOTO 
1306  :rem  62 

IFA$="{2  SPACES) 10000  LIMIT"THENA$=" 
{2  SPACES) 50000  LIMIT" :LI=50000:GOTO 
1306  :rem  115 

IFA$="{2  SPACES)50000  LIMIT"THENA$=" 
100000  LIMIT" :LI=100000:GOTO1306 

:rem  208 
IFA$="  100000  LIMIT"THENA$="  500000 
{SPACE)LIMIT":LI=500000:GOTO1306 

:rem  5 
IFA?="  500000  LIMIT"THENA$=" 
{3  SPACES)KO  LIMIT"  :H=1E38:GOTO1306 

:rem  52 
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1500  IFA1$="  3  HANDS "THENA1?="  5  HANDS" :L 

=5:L1=5:GOTO1600  : rem  81 

1510  IFA1$  =  "  5  HANDS '■THENAi$  =  "  3  HANDS"  :L 

=3:L1=3:GOTO1600  :rem  78 

1600  POKE 10 7 0,L+48: POKE 1102, LI +48: GOTO 130 

6  :rein  119 

2000  IFCTHENL1=L1-1 : SB=SB-200 : POKEX2 , 32 :X 

2=1581 :GOTO2020  : rem  67 

2010  L=L-1:SA=SA-200:POKEX1, 32:X1=1426 

:rem  154 

2020  POKE1070,L+48:POKE1102,Ll+48  : rem  55 

2021  POKEXl , 68 : POKEXl+CO , 7 : P0KEX2 , 68 : POKE 
X2+CO,7  :rem  201 

2025  GOSUB2700  :rem  18 

2026  POKECO+4, 33 : FORI=200TO10STEP-5 : POKEC 
0+1, I:F0RJ=1T05:NEXTJ, I:GQSUB2700 

: rem  143 
2030  IFLO0ANDL1O0THEN100  :  rem  4 

2040  PRINT" {HOME} [DOWN} [25  RIGHT} "SB" 

{LEFT}  "  :rem  6 

2050  PRINT" {HOME} {DOWN} {8  RIGHT }"SA" 

{LEFT}  "  :rem  25 

2060  FORTD=1TO3000:NEXT  :rem  148 

2100  BS="1":IFSA<SBTHENB$="2"  : rem  81 
2110  PRINT" {CLR} {10  DOWN} {13  RIGHT } PLAYER 
"B$"  WINS"  :rem  3 

2130  PRINT" {4  DOWN} {8  SPACES}PRESS  SPACE 

{SPACeJto  CONTINUE"  : rem  220 

2140  GETA$:IFA$<>"  "THEN2140  :rem  238 
2150  GOTO1000  :rem  194 

2500  POKECO+1,P:POKECO,0: POKECO+4, 33:FORI 

=1TO20; NEXT: RETURN  : rem  9 

2600  POKECO+8 , F : POKECO+7 , 0 : POKECO+1 1 , 3 3 : F 

ORI=1TO20; NEXT: RETURN  :rem  161 
2700  POKECO+4, 0:POKECO+11,0: RETURN: rem  67 

5000  PRINT" ICLR) [13  DOWN} {9  SPACES } REDEFI 

NING  CHARACTERS"  : rem  193 

5010  POKE55,0:POKE55,48:CLR  : rem  66 
5020  POKE56  334,PEEK(56  3  34)AND2  54:POKEl,PE 

EK(1)AND251  : rem  232 

5030  FORI=0TO2047 :POKEI+122B8, PEEK(I+5324 

8):NEXT  :rem  76 

5040  POKEl, PEEK{l)OR4;POKE563 34, PEEK (5633 

4)0R1  :rem  184 

5050  FORI=0TO71:READA:POKE12808+I,A:NEXT 

:rem  207 
5060  P0KE53272, ( PEEK( 53272 )AND240)OR12 

:rem  96 
5070  FORI=0TO40:READA:POKE49 152+1, A: NEXT: 

GOTO1000  :rem  3 

6000  DATA  127,246,127,246,127,246,127,246 

:rem  236 

6010  DATA  24,60,126,255,102,102,102,102 

:rem  98 
6020  DATA  0,0,0,0,0,0,0,0  :rem  150 
6030  DATA  0,8,28,8,62,8,20,36  irem  140 
6040  DATA  0,0,0,0,0,0,0,0  ;rem  152 
6050  DATA  0,0,0,0,48,0,0,0  :rem  213 
6060  DATA  0,0,8,42,42,8,0,0  i rem  22 
6070  DATA  0,16,84,84,84,84,16,0  :rem  249 
6080  DATA  0,24,126,126,126,126,24,0 

:rem  172 
7000  DATA  160,0,169,0,133,251,169,4,133,2 
52,177,251,201,70,240,8,201,71 

;rem  145 
7010  DATA  240,4,201,72,208,5,170,232,138 

:rem  162 
7015  DATA  145,251,200,208,234,230,252,165 

;rem  220 
7020  DATA  252,201,8,208,226,96    : rem  198 


Player  2  has  got  a  good  start  (IBM  version). 


Program  3:  PC/PCjr  Blueberries 

2  DEF  SEe=Ol SCREEN  0,1 

3  LOCATE  1,1,0 

4  WIDTH  4O1KEY  OFF 

5  60SUB  5000 

b   DEF    SEG=«tHB800 

7   STRIB   ON 

10    GOTO    1000 

100   Jl=STICK(0):J2=STICK(l)!S=-lf (J2>B0) 

-2«(J1<30)-3«(J1>80)-4»(J2<30):ST=NDT(BT 

RIG(l)) 

105   J1=STICK<2): J2=STICK{3)!S1=-1»(J2>B0 

)  -2*  ( JK30)  -3»  C  Jl  >B0)  -4*  <  J2<30)  :  ST1=N0T( 

STRIG(3)) 

110   DXYl=(S=2)-(S=3>+40»( (S-4)-(S=l) ) 

115   DXY2= (Sl=2) - (Sl=3) +40* ( CS1=4) - CS1=1 ) 

) 

120   DXYl=DXYlt2:DXY2=DXY2«2 

130    IF   ST   OR    <ST=0    ftND   SD=0>    THEN   POKE    X 

Y1,32!XY1=XY1+DXY1 

140    IF    ST=0   AND   SD>0   THEN   POKE    XY1,176:P 

OKE    XYl+1,1: SOUND    200, 1 ! SD=SD-1 : XY1=XY1+ 

DXY1:SC1=SC1+10 

170    IF   STl    OR    (ST1=0   AND   SD1=0)    THEN   POK 

E    XY2,32iXY2=XY2+DXY2 

180    IF   ST 1=0   AND   BD1>0   THEN   POKE    XY2, 176 

iPOKE    XY2+1,1: SOUND    210, 1 : SD1=SD1~1 : XY2= 

XY2+DXY2: SC2=SC2+10 

200   A=PEEKCXY1> :A1=PEEK<XY2) 

210    IF   A=219    THEN    SOUND   500, 1 : XY1=XY1-DX 

Yl 

220  IF  Al=219  THEN  SOUND  510, 1 : XY2=XY2-D 

XY2 

250  IF  A=127  THEN  SOUND  300,liG0SUB  800: 

XY1=XY1-DXY1 

260  IF  Al=127  THEN  SOUND  310,l:GaSUB  850 

! XY2=XY2-DXY2 

300  POKE  XY1,1:P0KE  XY2, 1 

305  POKE  XYl+1, 14:P0KE  XY2+1,14 

310  IF  A=17B  THEN  SCl=SCl+50 

320  IF  A1=17B  THEN  SC2=SC2+50 

330  IF  A=177  THEN  SCl=SCl+25 

340  IF  Al=177  THEN  SC2=SC2+25 

350  IF  A=15  THEN  C=38:6DTD  2000 
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360  IF  A 1=1 5  THEN  C=6:G0TQ  2000 

370  IF  A=176  THEN  SOUND  lOO, 1 : SCl=SCl-5 

380  IF  ftl=176  THEN  SOUND  1 10, 1 : SC2=SC2-5 

390  LOCATE  2, 26: PRINT  SCI"  ": LOCATE  2,9: 

PRINT  SC2"  " 

410  IF  SC1>=LIM  OR  SC2>=LIt1  THEN  2100 

450  CNT=CNT+1:IF  CNT>30+RND«20  THEN  CNT= 

O  ELSE  100 

455  DEF  SEG:CALL  2Z:DEF  SEG=&HB800 

456  GOTO  lOO 

BOO  SD=INT(50«RND+51)-INT(SCl/5O00)+INT( 
SC2/1000) 

810  IF  SD<25  THEN  SD=INT (50«RND+51 ) 
820  RETURN 

eSO  SDl=INT<5O«RND+51)-INT(SC2/5O00)+INT 
CSCl/1000) 

B60  IF  SDK25  THEN  SD1  =  INT<50»RND+51 ) 
870  RETURN 

lOOe  CLS! COLOR  7,0,0:PRINT"Player  1  SCOR 
E    Pickin'   SCORE  Player  2"; 
1010  PRINT"Hands  3   0      BlueberriesO 

Hands  3  " ; 
1020  W*=CHR«(219);B*=CHR«C32) 
1030  COLOR  6, 0,0; PRINT  STRING* (40, 219) ; 
1040  PRINT  W«W*STRING*(15,32)W»W«STRING» 
(19,32)CHR»(127)W*; 

1050  PRINT  W«W$B*STRIN6*(7,219)B«W*B«W*W 
*W*STRING* (4, 32) WtB*W*B*STRING* (5, 219) B» 
UJ$B$W$W$B$M$W$B$UI$W»; 

1060  PRINT  W*W$STRINGt(7,32)WtB*W*B«W*W* 
W*B$STRING*(4,219)BtW*STRING«(5,32)W*B«W 
$B$W$B$B$B$U$B$M$W$; 

1070  PRINT  W*WSB$STRING*(5,219)B*W*B*W4B 
*W*STRING* (10, 32) WSW*W*B*W*B*W*B«W$B*W$B 

lOaO  PRINT  W$W*B*W*STRINe*(5,32)W*BSW*B» 

W$B*B*WSW*W*B*BTRING* (7, 219) B*W*B«W*B*WS 

B$W»B$W$B$W*W$; 

1090  PRINT  W*W*B$W$B$STRING*(5,219>STRIN 

G*(6,32)W$STRING*(5,32)W«STRING*(5,32)W* 

B$B$B$M$B$W$B$M$B$M$W»; 

1100  PRINT  W*W*B$W«STRING*(5,32)W*B*STRI 

NG*(6,219)B*W*W*W«B*W«B*STRING«(6,219)B» 

W*W*B$W*B*W*B*W*Wt; 

1110  PRINT  W*CHRS(127)B4B*B*W*W*W*STRING 

$ ( 10, 32) W$W*W$STRING* ( 17, 32) W4W*; 

1120  PRINT  STRING* (40, 219)  ; 

1130  PRINT  STRING*(40,219)  ; 

1140  PRINT  WSW«STRING*(17,32)W*W*W«STRIN 

G* ( 10, 32) W*W«W*B*B*BtCHR* (127) W«; 

1150  PRINT  W*W«B*W*B*W«B*W*W*B*STRING*(6 

, 219) B$W*B*W*W$W*B*STR1NG* (6, 219) B*W$STR 

I N6* ( 5 , 32 ) W«B*W*W* ; 

1160  PRINT  W*W$B$W«B*W«B«W*B*B*B*W*STRIN 

G$ (5, 32) W*STRING* (5, 32) W*STRING* (6, 32) ST 

RIN6S(5,219)B*W*B*W*W*; 

1170  PRINT  W*W*B*W*B*W*B«W*B»W*B*W*B*STR 

ING$ (7,219) B*W*W*W*B*B*W*B*W*B«WtSTRING« 

(5,32)1>J$B$W$1>1*; 

1180  PRINT  M«W$B$W$B$M$B«M«B«W$B«l>J«B«W«M 

tWSSTRINGS ( 10, 32) W*B*W*B»W$B*STRINe* (5, 2 

19)BSM$W$; 

1190  PRINT  W*W*B*W$B*B*B4W*B«W*B*W*STRIN 

G*  1 5 , 32 ) WSB*STR I NG* (4,219) B»W«W*W$B*W*B* 

W*STRING* (7, 32) W*W«; 

1200  PRINT  W*W*B*W*W*B*W«W*B*W«B«STRrNG« 

(5,219) B«W$B$U*5TR I NG* ( 4 , 32 ) W$M$U«B$M*B$ 

STRING* (7, 219) B*W*W*! 

1210  PRINT  W*CHRt( 127) STRING* (19, 32) W*W* 

STRING* (15,32) W*W*; 


1220  PRINT  STRING* (40, 219); 

1250  XY1=1114: XY2=a04:PQKE  XYl,l!POKE  XY 

2,1: POKE  XYl+1, 14;P0KE  XY2+1,14 

1260  SC1=0:SC2=0 

1290  LOCATE  23,  7: COLOR  2,0, 0:PRINT"PrBss 

SPACE  to  start  play" 
1300  LOCATE  24,l:COLOR  7,0,0!PRINT"    Pr 
ess  '1'  Press  '2'"; 

1305  A*="  No  Limit":LIM=9.999999E+37:A 
1*="  3  Hands" ;L=3:L1=3; LOCATE  25,1: PRINT 

A*,"        "Alt; 
1310  I*=INKEY*: IF  1*=""  THEN  1310 
1320  IF  I*="  "  THEN  LOCATE  23,1:PRINT  SP 
ACE* ( 79) ;: LOCATE  25,1: PRINT  SPACE* (39) ; : 
GOTO  100 

1330  IF  I*="l"  THEN  GOSUB  1400 
1340  IF  I*="2"  THEN  GOSUB  1500 
1350  GOTO  1310 
1400  IF  A*="    No  Limit"  THEN  A»="   5000 

Limit":LIM=3000:G0T0  1600 
1410  IF  ft*="   5000  Limit"  THEN  A*="  1000 
0  Limit" :LIM=10000: GOTO  1600 
1420  IF  A*="  lOOOO  Limit"  THEN  A«="  5000 
0  Li(nit";LIM=50000!  ;GOTO  1600 
1430  IF  A*="  50000  Limit"  THEN  A*="  1000 
00  Limit":LIH=100000! :GOTO  1600 
1440  IF  A*="  100000  Limit"  THEN  A*="  500 
OOO  Lifnit":LIM=500000!  :GOTO  1600 
1450  IF  fl*="  500CX)0  Limit"  THEN  A«="    N 
o  Limit" :LIM=9.999999E+37: GOTO  1600 
1500  IF  Al*="  3  Hands"  THEN  Al*="  5  Hand 
s":L=5:Ll=5:P0KE  92,L+48:PaKE  156,Ll+48: 
GOTO  1600 

1510  IF  Al*="  5  Hands"  THEN  Al*="  3  Hand 
s":L=3:Ll=3:POKE  92,L+4B:PDKE  156,L1+4B! 
GOTO  1600 

1600  LOCATE  25,1:PRINT  A*,"  "Al*; : 
RETURN 

2000  FOR  1=270  TO  250  STEP  -2: SOUND  1,1; 
NEXT 

2040  IF  C=6  THEN  Ll=Ll-i : SC2=SC2-200:L0C 
ATE  2, C: PRINT  LI: POKE  XY2, 32; XY2=804: PDK 
E  XY2, liPOKE  XY2+1,14 

2050  IF  C=38  THEN  L=L~1 ; SCl=SCl-200: LDCA 
TE  2,C:PRINT  L:PaKE  XY1,32; XY1=1 114:POKE 

XYl, 1:P0KE  XYl+1, 14 
2060  IF  L1=0  OR  L=0  THEN  LOCATE  2,9:PRIN 
T  SC2: LOCATE  2, 26: PRINT  SCI; GOTO  2100 
2080  GOTO  100 

2100  IF  SCKSC2  THEN  C=1;B*="1"  ELSE  C=3 
3:B*="2" 

2200  COLOR  23,0: LOCATE  1 , C: PRINT "PLAYER 
"B*:COLOR  3,0:L0CATE  23, 1:PRINT" 
Press  SPACE  to  continue" 

2210  A*=INKEY*: IF  A*="  "  THEN  1000  ELSE 
2210 

5O00  DEF  SEG;ML*=SPACE*(4B):V=VARPTR(ML* 
) : ZZ=PEEK (V) +256«PEEK (V+1 ) 
5010  FOR  1=0  TO  47: READ  A: POKE  ZZ+I,A:NE 
XT: RETURN 
10000  DATA  &H55,  &H1E,  &HBE,  StHOO,  &H00, 

&HBB,  &H00,  &HB8,  &H8E,  8<HDB 
10010  DATA  &HSA,  &H04,  &H3C,  &HBO,  &H75, 

&H04,  8(HFE,  8(H04,  &HEB,  8<H0F 
10020  DATA  S(H3C,  SiHBl,  8<H75,  &H04,  gcHFE, 

&H04,  8(HEB,  &H07,  &H3C,  &HB2 
10030  DATA  &H75,  S.H03,  g(HC6,  &H04,  ScHOF, 

&H46,  8(H46,  &HS1,  &HFE,  StHEO 
10040  DATA  &HOE,  8.H72,  8(HDF,  &H1F,  8cH5D, 

&HCA,  StHOO,  &H00  © 
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THE  WORLD  INSIDE  THE  COMPUTER 


Computing  Together 


Fred  D'lgnazio,  Associate  Editor 


New  research  suggests 
that  infants  are  much 
brighter  than  we  once 
thought.  This  research 
has  prompted  anxious 
parents  who  are  wor- 
ried about  their  chil- 
dren's ability  to  cope 
with  a  high-tech  fu- 
ture, to  enroll  their 
infants  in  computer  courses  before  they  are  even 
out  of  diapers.  After  class,  the  parents  bring  the 
kids  home  and  drill  them  using  flash  cards.  On 
the  cards  are  written  words  like  RAM,  ROM, 
BITS,  and  BYTES.  The  parents  think  that  early 
familiarity  with  computer  technology  and  jargon 
will  be  the  youngsters'  ticket  to  a  good  college 
and  a  successful  career. 

Unfortunately,  these  parents  are  teaching 
their  kids  skills  that  may  soon  be  obsolete.  After 
all,  it  will  be  the  twenty-first  century  before  to- 
day's infants  enter  college  or  the  job  market.  Be- 
tween now  and  then,  computers  are  going  to 
change  drastically. 

Instead  of  concentrating  on  bits  and  bytes, 
parents  of  young  children  should  concentrate  on 


Fied  D'lgnazio  is  a  computer  enthusiast  and  author  of 
several  hooks  on  coiiifnters  for  i/ouiig  people.  His  books 
iiicltiile  Katie  and  the  Computer  (Creative  Coinpiiting), 
Chip  Mitchell:  The  Case  of  the  Stolen  Computer  Brains 
(DuttonlLodestar),  The  Star  Wars  Question  and  Answer 
Book  About  Computers  (Random  House),  and  How  To 
Get  Intimate  With  Your  Computer  (A  10-Step  Plan  To 
Conquer  Computer  Anxiety)  (MtGraw-Hill). 

As  the  father  of  two  i/oun^  childroi,  Fred  has  become 
concerned  with  introducing  the  computer  to  children  as  a 
wonderful  tool  rather  than  as  a  forbidding  electronic  device. 
His  cohniin  appears  monthly  in  COMPUTE!. 
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more  general  skills.  They  should  strive  to  build  a 
relaxed,  comfortable  relationship  between  their 
children  and  computers — a  constructive  relation- 
ship that  enhances  the  child's  self-image  and 
self-confidence.  As  the  child  gets  older,  this  sort 
of  relationship  will  be  more  enduring  and  more 
valuable  than  specific  skills  which  may  quickly 
go  out  of  date. 

Toddler  Bumout 

Understandably,  parents  want  their  children  to 
do  something  productive  on  the  computer.  For 
example,  they  may  buy  drill-and-practice  soft- 
ware that  will  help  give  the  child  a  boost  in  a 
school  subject  with  which  he  is  struggling. 

At  first,  this  approach  works  well.  The  child 
diligently  works  at  the  computer  and  seems  to  be 
making  progress.  But  then  boredom  sets  in,  the 
software's  novelty  fades,  and  the  child  loses  in- 
terest in  the  computer.  The  parents'  natural  re- 
action is  to  make  the  child  sit  at  the  computer 
and  continue  drilling. 

Unfortunately,  this  approach  may  lead  to 
toddler  burnout.  For  many  kids,  the  joy  of 
computing  is  replaced  by  the  drudgery  of 
computing.  Computers  are  no  longer  fun,  they 
are  pure  work.  If  kids  are  "strapped  to  their  com- 
puter" every  afternoon  (as  I  was  once  strapped  to 
my  piano),  they  could  develop  a  lifelong  negative 
attitude  toward  computers  and  a  mental  block 
about  using  them. 

The  Computer  Playground 

We  have  so  many  computers  around  our  house 
that  people  think  we  must  be  a  futuristic  family. 
They  think  that  our  computers  are  plugged  into 
everything,  including  the  coffee  maker,  the 
thermostat,  the  bathroom  scales,  and  the  toaster 
oven.  They  think  we  live  computerized  lives. 


u^h  A  Pea 


NEW 
LOW  PRICES 

Gemini  10X $267 

Legend  80  CPS $239 

Legend  100  CPS $259 

12  In.  Amber  Monitor  .  $89 
Concord  Disk  Drive  . .  $297 

SUCH-A-STEAL 
ON  SOFTWARE! 

Epyx  Summer  Games $25 

SubLogic  Flight  Simulator  [l .  .S37 

Screenplay  Pogo  Joe S19 

Access  Beachhead $23 

Infocom  Sorcerer $33 

Continental  Home  Acct $47 

Timeworks  Word  Writer $39 

Timeworks  Data  Manager  II  .  $39 
Commodore  Magic  Desk  . .  .$55 
Microware  Clone  Machine  .  .$39 

Blue  Sky  Super  Copy $29 

Handle  Calc Result  Adv/d ....  $75 

CALL  FOR  OTHER 

SUCH-A-STEAL  PRICES 

ON  SOFTWARE  AND 

HARDWARE  FOR 
YOUR  COMMODORE 
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12629  N.  Toluin  Blvcj. 
SUM  131 

PtyMnLi,  AZ  KOii 


CALL  TOLL  FREE 
1-800-431-8697 

For  Customer  Seivice 
Call:  602-957-3619 

ORDERING  &  TERMS:  Send  cashier  check,  money  order, 
pereonal/companv  checks  allow  3  w^eks  bonk 
clearance  VlSA/MosterCord  occepted,  ProvkJe  phone 
number  with  order.  SHIPPING:  Software  odd  S4.00  for  first 
three  pieces,  odd  S1  GO  each  addittonal  piece. 
Hordware  exJd  S10.00  Returra  must  tiave  autnoflzatkjn 
number  (coll  602-957-3619  for  Quthottzaflon  number).  All 
returned  merchandise  subject  to  restocl<lng  fee  and 
must  come  with  all  originol  packaging.  No  returns 
allowed  offer  30  days  from  shipping  date.  Prices  ore  for 
cash.  V\SA  ond  fvlosterCard  add  3%.  Prices  subject  to 
change  without  notice.  Ail  products  subject  to  ovaila- 
blllfv  from  manufacturers  arid/or  suppliers.  All  prices  In 
U.S.  dollars, 


SAVE  HAORE  THAN  EVER  ON... 

3M  Scotch®  DISKETTES         < 


AND  OTHER  COMPUTER  NEEDSI 


LrFETIME  WARRANTY! 


3M  BULK  DISKETTES' 
AT  TREMENDOUS  SAVINGS! 

These  are  genuine  3M  diskettes  with  a  lifetime  warranty.  But  they  are  bull<  pacl<ed  in  cartons  of  SO 
with  separate  white  Tyvec  envelopes.  No  identification  labels,  write  protect  tabs  or  cartons  are 
provided!  A  great  buy  (or  volume  users. 

$i60-      $902^ 

5Va"  SSDD-96TPI $2.20  5V4"  DSDD-96TPI $2,75 

All  have  reinforced  hub. 

SOFT  SECTOR  ONLY! 

(for  IBM,  APPLE,  KAY  PRO,  DEC  and  about  99%  of  all  computers,} 

Must  be  ordered  in  multiples  of  50! 

BOXED  3M  DISKETTES 
WITH  ALL  THE  TRIMMINGS! 

Factory-fresh  3Ivl  packaging  witli  envelopes,  Sfiil  logo  labels,  ID  labels  and  write-protect  tabs. 

$185    -  $735 

I       Oty.20  5V4"DSDD — ^  ^^^h       Qty.  20 

5Va-  SSDD-96TPI     $2.60       8'  SSSD    $2.05 

5Vi-  DSDD-96TPi        S3.25        8'  SSDD      $2.50 

8'DSDD  $3.10 

Minimum  order  of  20  diskettes.  Additional  diskettes  in  multiples  of  10. 


3M  HEADCLEANING  KITS 

Stop  swearing  and  start  cfeaning.  This  non-abrasive 
cleaning  Kit  tias  averythmg  you  need  for  thirty  applica- 
tions 

S23.aO  •  St  sosnpcg. 

SAVE  MONEY  WITH  A  CLEAN  COMPt/TERI 
INTRODUCING  MIM-VAC 


i«v::f^ 


Most  Gimputer  matlunctions  are  causeO  by  dust.  MIM- 
VAC  IS  i<)«8al  for  cleaning  keytwards,  screens,  dnves  and 
printers.  (Great  for  photo  equipmeni.  tool)  Equipped 
witti  an  easy-empty  bag.  two  directional  warefe  and  Iwo 
tme-bfush  rxjzzies.  Dont  compute  without  it.  (Requires 
9-volt  banery  whicti  is  not  inciudeo.) 

S21.95  -$3  00Snpng 

AT  LAST:  A  DISK  DRIVE  DIAGNOSTICS 
SYSTEM  THAT  WORKS] 

The  Dymek  Recordtrg  Inierchange  Diagnosiic  (RID)  is  a 
profeialonal,  but  easy  to  use.  dhve  diagrkostic  disk.  It 
tests  dnve  speed,  radial  position,  hystefesis.  wnte  func- 
tiofi,  erase  crosstalk,  si^gnal-to-noise  and  dan>ptr>g.  In 
Short,  it's  a  professionais  system  that  will  help  you  keep 
youf  machine  in  prime  condition.,  .and  avoid  the  evils  oi 
data  loss.  _^ 

$29.95  -S150Shpng 


w^,- 


MEDIA-IMATE  50: 
A  REVOLUTION  IN  DISKETTE  STORAGE 

Every  once  in  a  wfiile,  someone  takes  The  simple. ..and 
makes  it  elegant.  This  unit  hokJs  50  5V4'  diskettes,  tias 
grooves  lor  easy  stacking,  nipplas  to  keep  diskettes  from 
slipping  in  the  case  and  severai  other  features.  We  iike  it. 

$10.95  •  tZ.OOShpng 


^ 


DISKETTE  70  STORAGE: 
STILL  A  GREAT  BUY 

Dust-free  storage  for  70  5 'A' 

diskettes.  Six  dividers  included. 

An  excellent  value. 

$14.95  -f  $3.00  Stvng. 


PRINTER  RIBBONS 
AT  BARGAIN  PRICES. 

EPSON  MX-70/80  S3.5B  »  .JSShpog, 

EPSON  MX-100  S6.99  .  25  Sftpog 

Okiljata  Micro  84  S3.66  •  26  Srvpng 

Diablo  630  Mylar  $2.60  -  .?5  stipog 

Diablo  630  Nykm  $2.93  -  25  snprig. 

THE  END  TO  RS-232 
CABLE  PROBLEMS:  SMARTCABLE 

Now  interfacing  almost  any  two  RS-232  devices  is 
simple  and  quick.  Just  plug  in  SMARTCABLE  and  Hip 
two  switches  The  logic  of  txsth  devkss  is  figured  out 
immediately  and  you  can  get  to  work, 

$79.95  +  $1.50  Sflpng. 


Shlpghic:  ^W  DlSI^TTtS— Add  S3  00  per  100  or  fev«r  dtskenes. 
a-  Diskettes— A*)  W.OO  pw  100  or  Imwr  drakettm-  OTHER 
ITE^*S:  A(W  stuppng  charges  as  srwwn  in  afldilion  10  diskette 
shipping  ctiarges  PeymefrtT  VISA  and  Maslercarfl  accepted.  COO 
order*  only,  add  S3  00  rjindling  changes,  taunt:  lllnois  lesidents. 
piBBSe  *oo  6'^  sales  t«« 


WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 
ON  THE  SAME  PRODUCTS  AND  DUANTITIES! 

Nationwide:  1-800-621-6627 

Illinois:  1-312-944-2788 

Hours:  9AM  -  SPM  Central  Titna 

Mlntmum  Order:  $35.00 


DISK  WORLD!,  Inc. 

SUITE  4B06 

30  EAST  HURON  STREET 

CHICAGO,  ILLINOIS  60611 


Authorized  Distributor 
Information  Processing  Products 


Nothing  could  be  further  from  the  truth. 
When  I  get  the  chance  to  tell  people  what  really 
goes  on,  I  say  that  we  have  an  Erma  Bombeck 
household.  Sure  we  use  computers,  but  not  to 
make  our  lives  more  rigid,  organized,  and 
mechanical.  Instead,  we  use  them  as  an  elec- 
tronic playground — and  not  just  for  Catie  and 
Eric,  but  for  me  and  my  wife,  Jan,  too. 

When  people  ask  me  what  kind  of  software 
we  buy  for  the  kids,  I  say  that  we  buy  the  soft- 
ware that  turns  us  on.  Then  when  the  kids  see  us 
using  the  computer  and  having  a  good  time,  it 
gets  them  excited,  too, 

At  my  house  we  don't  think  of  play  as  triv- 
ial. To  us,  play  is  a  product  of  love.  If  we  love  to 
do  something,  it  isn't  work,  it  is  play. 

I  would  like  my  children  to  love  to  use 
computers,  to  use  them  playfully  and  creatively.  I 
never  want  my  kids  to  feel  that  computers  are 
chains  tying  them  to  a  hateful  task.  Instead,  I 
want  them  to  see  computers  as  wings  that  enable 
them  to  swoop,  dive,  and  have  fun,  and  take 
them  to  new  heights  and  soar  to  the  limits  of 
their  abilities  and  imaginations. 

The  Computer  As  A  Babysitter 

The  computer  makes  a  great  babysitter — even 
better  than  TV  (unless  you  have  cable,  a  VCR, 
and  lots  of  tapes).  It  will  soon  be  a  big  tempta- 
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tion  for  parents  to  turn  on  the  computer  to  get 
their  little  kids  out  of  their  hair. 

The  computer  can  make  a  healthful  baby- 
sitter— to  a  point.  It  can  provide  a  much-needed 
break  for  a  harried  parent.  And  it  can  become  a 
child's  companion  and  a  patient  teacher.  Also, 
flying  solo  on  a  computer  can  be  a  very  positive 
experience  for  a  child.  It  can  give  them  a  sense  of 
control,  mastery,  and  responsibility  that  they  sel- 
dom experience  at  such  a  young  age. 

However,  it  is  easy  for  little  kids  to  get  too 
much  of  a  good  thing.  More  than  computing  they 
need  time  to  play  with  other  children,  get  lots  of 
exercise,  fresh  air,  and  experience  the  joy  of 
swinging,  digging  in  sand,  and  getting  elbow- 
deep  in  finger  paints. 

Most  important  of  all,  they  need  to  spend 
time  wdth  their  parents.  Computers  make  great 
toys,  but  they  cannot  replace  parents.  Parents  are 
children's  first  and  most  important  toys.  Comput- 
ers make  a  very  poor  substitute. 

New  games  are  starting  to  appear  (including 
many  programs  from  Children's  Television 
Workshop,  Spinnaker,  Sunburst,  and  Counter- 
point Software)  that  encourage  parents  and  chil- 
dren to  play  on  the  computer  together.  Then  the 
computer  changes  from  being  a  babysitter  that 
isolates  the  child  to  an  electronic  hearth  that 
brings  the  whole  family  together  actively  and 


happily.  In  fact,  studies  at  New  York  University 
suggest  that  computers  encourage  families  to 
spend  more  time  together. 

Computer  Elevator  Stioes 

Computers  are  like  booster  shoes,  They  can  give 
handicapped  people  a  boost  so  they  can  go  about 
their  lives  on  par  with  the  rest  of  the  world. 
Computers  can  also  play  this  role  with  young 
children. 

My  children  are  always  at  the  bottom  of  the 
family  totem  pole,  except  when  they  use  the  com- 
puter. I  encourage  five-year-old  Eric  and  eight- 
year-old  Catie  to  do  things  on  the  computer  that 
enhance  their  abilities,  that  increase  their  self- 
respect  and  self-confidence,  and  give  them  a  leg 
up  on  the  rest  of  us.  Here  are  some  of  the  things 
our  kids  do  on  their  computers: 

•  Gobbledygook  Processing.  Five-year-old  Eric 
bangs  on. the  keys  of  the  computer  and  gets  it  to 
print  out  page  after  page  of  gobbledygook.  Eric  is 
learning  how  to  type,  he  thinks  he  is  doing 
work,  and  he  takes  his  gobbledygook  to  school 
and  sends  it  to  both  his  grandmothers.  Remark- 
ably, the'  gobbledygook  is  gradually  starting  to 
make  sense.  Real  words,  phrases,  and  sentences 
are  starting  to  appear.  Most  important  of  all,  Eric 
is  developing  ihe  habit  of  using  the  computer  as 
a  tool  to  help  him  think  better  and  not  as  a 
crutch  to  do  his  thinking  for  him. 

•Training  The  Family  Pet.  Catie  and  Eric  treat 
our  computers  like  pets.  Sometimes  they  pull 
their  tails,  but  mostly  they  are  learning  "com- 
puter manners" — how  to  treat  the  computers 
kindly  and  responsibly.  They  can  turn  on  all  the 
com.puters,  use  the  floppy  disks  and  cartridges, 
and  call  up  all  their  favorite  programs.  Eric,  for 
example,  is  so  good  that  when  I  hired  a  house- 
keeper and  a  secretary,  he  taught  them  how  to 
use  the  family  computers. 

•  Computer  Scribbling.  Catie  and  Eric  have  a 
skill  that  Janet  and  I  have  lost:  They  can  scribble! 
When  we  turned  Catie  and  Eric  loose  on  a  com- 
puter touch  tablet — like  the  PowerPad  from 
Chalk  Board  and  the  KoalaPad  from  Koala  Tech- 
nologies— it  was  incredible.  The  tablets  enhanced 
the  kids'  motor  skills,  allowed  them  to  make  fine, 
detailed  changes  to  their  drawings  and  pictures, 
and  gave  them  the  freedom  to  creatively  scribble. 
We  now  have  a  slideshow  of  the  children's  com- 
puter pictures  and  a  door  full  of  their  drawings 
on  the  new  Macintosh  computer. 

•  The  Computer  Sandbox.  The  children  play 
games  on  the  computer  that  give  them  the  most 
control.  Theii  control  the  computer,  rather  than 
the  other  way  around.  One  of  the  children's  most 
popular  games  is  to  play  on  the  keyboard,  push- 
ing buttons  just  to  see  what  happens.  They  call 


this  "Flying  the  Cursor."  Doing  this  they  have 
discovered  how  to  get  the  computer  to  make 
moving  rainbows,  colorful  letters,  upside-down 
letters,  pictures,  and  sounds — all  without  writing 
or  buying  a  single  program. 

•  The  Electronic  Picturebook.  The  kids  have  both 
learned  how  to  read  by  using  computer  adven- 
ture games  for  young  children  like  Sierra  On- 
Line's  Troll's  Tale  and  Dragon's  Keep.  They  enter 
the  microworlds  inside  the  computer  and  in- 
stantly become  the  heroes  at  center  stage.  To 
journey  through  the  world  they  have  to  remem- 
ber where  they  are,  and  read  the  signs  in  the  pic- 
tures and  the  messages  at  the  bottom  of  the 
screens.  In  these  games,  words  gain  real  meaning 
and  power.  They  are  the  keys  Catie  and  Eric  use 
to  outwit  an  ugly  troll  or  rescue  small  animals 
from  a  mean  dragon. 

Robots:  Bag  Ladies  And  Alarm 
Clocks 

We  have  lots  of  computers  around  the  house,  but 
we  also  have  robots.  In  fact,  we- run  a  flophouse 
for  robots.  We  never  know  when  a  robot  will 
come  to  our  door  looking  for  a  home.  Then  I 
write  an  article  about  the  robot,  and,  pretty  soon, 
we  have  to  send  the  robot  along  to  another 
writer  so  they  can  write  about  the  robot,  too. 

My  children  love  robots — not  as  servants, 
but  as  pets.  When  TOPO  the  robot  came  to  visit 
us,  for  example,  my  children  noticed  that  TOPO 
was  naked  and  dressed  it  in  various  costumes. 
My  son  tied  his  blanket  to  TOPO  and  turned  it 
into  a  superhero.  My  daughter  dressed  TOPO  as 
a  New  York  bag  lady,  as  a  little  girl,  and  as  a 
witch,  complete  with  a  long  pointed  hat,  a  black 
cape,  and  vampire  teeth. 

TOPO  never  washed  any  dishes,  made  any 
beds,  or  took  out  the  trash,  but  it  was  still  useful. 
Every  school  morning,  I  turned  TOPO  on  and 
sent  it  into  the  children's  bedrooms  to  wake 
them  up.  When  Jan  and  1  wake  up  the  kids  they 
growl,  whine,  and  complain.  But  when  TOPO 
appeared,  did  a  silly  jig,  and  said,  "Wake  up, 
sleepyheads.  Time  to  get  out  of  bed,"  the  kids 
got  up  smiling  and  gave  the  robot  a  hug. 

Robots  may  never  be  good  as  maids  or  but- 
lers, but  they  make  great  pets  and  alarm  clocks.  Q. 
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Trapping  Bugs 


It  was  a  moth,  according  to  legend,  that  caused  a 
program  to  crash  in  the  early  days  when  com- 
puters were  built  of  vacuum  tubes  and  tons  of 
copper  wire.  The  critter  had  flown  into  the  ma- 
chine. From  this  we  get  the  term  bug,  meaning 
that  there  is  an  error,  a  problem  in  a  computer 
program.  And  tracking  down  bugs  is  called 
debugging. 

As  all  programmers  soon  learn,  there  is  no 
permanent  cure  for  bugs — they  are  always  hiding 
inside  a  freshly  written  program  of  any  complexity. 
Some  bugs  are  obvious  and  will  show  up  the  first 
time  a  program  is  tried  out.  Some  are  hidden 
away  and  permit  most  of  the  program  to  run 
without  error.  A  complex  program  might  run  well 
for  weeks  or  months  and  then  a  particular  se- 
quence of  events  will  trigger  a  well-hidden  bug. 

Program  Sketches 

For  many,  programming  is  similar  to  painting  or 
sculpting.  First  you  jump  in  and  roughly  create 
the  outlines,  the  main  ideas.  At  this  point  you've 
essentially  made  a  sketch  of  the  final  program. 
Then  you  start  testing  the  program  by  RUNning 
it,  refining  it  until  it  performs  as  it  should. 

What  are  the  best  ways  to  look  for  bugs? 
Luckily,  the  most  common  bugs,  typos,  are  re- 
ported to  you  by  BASIC  itself.  On  the  Atari,  if 
you  try  to  enter  a  line  like  this:  PRINF  X,  you 
will  get  an  immediate  SYNTAX  ERROR  report. 
Other  versions  of  BASIC  wait  to  report  typos  un- 
til after  you  RUN  the  program,  but  the  effect  is 
the  same.  Your  computer  tells  you  what's  wrong 
and  which  line  to  fix. 

Many  other  bugs  show  up  quickly  when  you 
first  try  out  the  program:  Nothing  appears  on- 
screen; things  appear,  but  in  the  wrong  places;  or 
the  numbers  are  all  wrong.  In  other  words,  the 
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program  isn't  even  coming  close  to  your  expecta- 
tions. These  are  often  easy  bugs  to  work  with 
because  they  aren't  usually  caused  by  the  inter- 
action of  two  parts  of  your  program.  There's 
some  gross  failure  somewhere.  You've  simply  got 
to  look  at  your  formatting  routine  or  your  mathe- 
matical definitions  to  see  where  the  problem  is. 

Between  The  Cracks 

Some  of  the  hardest  bugs  to  find  are  hidden  in 
the  cracks.  They  are  usually  the  result  of  a  clash 
between  two  otherwise  perfectly  functional  sub- 
routines. For  example,  if  your  program  uses  the 
variable  T  to  stand  for  the  total  of  an  addition 
problem  and  then  you  use  a  subroutine  with  a 
loop  that  also  uses  T: 

10  T  =  BOLTS  +  WASHERS 


800  FOR  T  =  1  TO  500 

As  you  can  see,  no  matter  what  your  total  of 
bolts  and  washers  is,  it  will  be  left  at  500  any- 
time you  use  the  subroutine  at  line  800. 

A  similar  interaction  between  variables  can 
be  even  more  subtle.  In  many  versions  of  BASIC, 
only  the  first  two  letters  of  a  variable  name  have 
any  significance.  So,  if  you  name  one  thing 
BOLTS  and  another' thing  BOWLING,  these  two 
things  will  appear  to  the  computer  as  a  single 
variable  called  BO.  And,  as  in  the  example 
above,  the  most  recent  number  assigned  to  BO 
will  be  the  only  value  that  variable  can  have. 

The  Worst  Bugs 

But  the  worst  bugs  are  not  in  the  computer  at  all, 
They're  in  the  programmer's  mind.  And  since 
you  must  use  your  brain  to  ferret  out  the  errors 


caused  by  that  brain — you  can  see  the  paradox. 
These  errors  tend  to  be  of  two  types:  incorrect 
setups  and  bad  logic. 

An  example  of  an  incorrect  setup  would  be 
thinking  you've  defined  a  variable  when,  in  fact, 
you  haven't,  or  using  >  when  you  mean  <.  The 
variations  on  this  theme  are  endless  and  you  can 
look  at  >  dozens  of  times  and  not  even  stop  to 
think  about  it  as  a  possible  source  of  error. 

Bad  logic  would  include  such  things  as 
subroutines  which  exit  via  GOTO  instead  of 
RETURN;  INPUT  at  the  wrong  time;  or  forget- 
ting about  the  first  or  last  item  in  a  sequence  like 
a  DATA  list. 

Sometimes  there's  only  one  way  to  find  a 
deeply  hidden  bug:  stepping  through  the  pro- 
gram. There  are  two  levels  of  step  testing.  You 
can  insert  STOP  in  various  places,  then  check  to 
see  that  the  variables  are  what  they  should  be  at 
these  stopping  points.  Then  CONT  to  the  next 
STOP  and  ask  to  have  the  variables  printed 
again  (type:  ?  X,Y,Z$).  This  rough  test  is  often 
enough  to  pinpoint  the  place  where  the  program 
has  gone  wrong. 

Alternatively,  you  can  use  the  single- 
stepping  TRACE  function  found  in  many  program- 
mer's aid  programs.  These  aids  add  commands  to 
BASIC  like  RENUMBER,  DELETE,  and  usually 
have  a  single-stepping  function  as  well. 

When  you  activate  a  TRACE  command,  your 
program  executes  step  by  step,  one  command  at 
a  time.  After  each  command,  the  status  of  all  ac- 
tive variables  is  displayed  on  screen  along  with 
the  program  line  so  you  can  locate  where  things 
begin  to  come  unglued.  Often,  a  TRACE  function 
permits  you  to  define  how  fast  it  will  execute 
and  even  allows  you  to  turn  it  on  or  off  from 
within  the  program.  TRACEing  is  a  slow,  but 
nearly  always  successful  way  to  trap  the  most 
devious  bugs. 

If  all  else  fails,  it's  sometimes  advisable  to 
ask  for  help  from  a  friend.  His  brain  won't  have 
been  implicated  in  the  original  error,  and  he  can 
therefore  often  spot  the  >  you  keep  ignoring.     © 
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Computers  And  Society 


David  D.  Thornburg,  Associate  Editor 


Technoslress 


Craig  Brod  is  a  psychotherapist  who  is  seeing  a 
disturbing  trend  in  his  patients.  He  is  seeing  a 
new  malaise  that  he  calls  technostress.  His  con- 
cern over  this  ailment  was  apparently  so  severe 
that  he  felt  obliged  to  write  a  book  about  it 
(Technostress:  The  Human  Cost  of  the  Computer 
Revolution,  Addison-Wesley,  $16.95).  Whether 
technostress  is  a  serious  malady  is  not  for  me  to 
ponder,  but  there  is  little  question  in  my  mind 
that  Dr.  Brod's  book  will  induce  stress  in  many 
of  its  computer-literate  readers. 

According  to  Dr.  Brod,  our  societal  fabric  is 
being  reshaped  as  a  result  of  our  headlong  push 
into  the  information  age.  It  is  astounding  to  see 
the  nature  of  the  ailments  that  appear  to  be 
caused  by  the  mere  use  of  computers  in  society: 

The  wife  of  a  director  of  computer  services 
for  a  large  bank  reports  that  when  she  first 
met  her  husband,  he  was  a  warm  and  sen- 
sitive man.  Today  he  has  no  close  friends 
and  his  only  recreational  activity  is  watch- 
ing television.  He  no  longer  has  patience 
for  the  easy  exchange  of  informal  con  vers  a - 
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tion.  One  night,  she  asked  him  to  slow 
down  as  they  walked  home. 

"Walk  faster,"  he  replied. 

"I  can't  walk  faster.  My  legs  are  shorter 
than  yours." 

"That's  no  excuse,"  he  said.  "You  have  to 
learn  to  walk  more  efficiently." 

But  Is  It  Pervasive? 

Now,  seriously,  folks,  this  man  has  problems — 
but  1  can't  believe  that  the  computer  is  the  cause 
of  them.  The  fact  is  that,  as  a  therapist,  Dr.  Brod 
is  more  likely  than  the  rest  of  us  to  encounter 
people  who  are  having  difficulty  adapting  to 
change — and  we  are  definitely  going  through  a 
period  of  intense  change.  Nonetheless,  rather 
than  suggesting  that  he  is  observing  the  aberrant 
behavior  of  a  minority.  Dr.  Brod  goes  so  far  as  to 
suggest  that  we  are  all  potential  victims  of  the 
onslaught  of  computer  technology. 

As  one  example  of  this,  he  suggests  that  the 
reason  we  as  a  nation  have  purchased  so  many 
computers  is  because  we  fear  them: 

Ironically,  we  are  motivated  by  fear  to  ac- 
cept what  is  supposed  to  bring  security  and 
hope.  Workers  and  managers  fear  obsoles- 
cence if  they  are  not  at  the  technological 
forefront.  Parents,  concerned  about  the  de- 
mands of  future  educators  and  employers, 
feel  compelled  to  make  sure  their  children 
are  computer-literate  at  an  early  age.  Those 
who  do  not  join  the  revolution  will,  we  are 
told,  become  relics  of  a  backward  culture. 

I  seriously  question  whether  any  readers  of 
this  magazine  felt  that  society  compelled  them  to 
buy  a  computer.  If  it  is  considered  a  "negative 
sell"  to  encourage  people  to  become  facile  with 
the  tools  of  their  future,  then  so  be  it. 
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Koala  Pad  TqucIi  Taljlel-Appie/Fr^nklin  90 
SPINNAKER  Soltware  In  Stock 
Brodertond  Software  in  slock 

16K  RAM  Card  (or  Apple  59 

Muitiplan — Microsoft  179 

Soliif  Oak  I  Level  Stand  for  Apple  29 

Serial  Card  for  Apple  89 

MPC  RAM/eO  column  card  lor  Me  [M!VfJ\  139 

ZBD  Softcard  and  CP/M  (Microsoft)  235 

AB  8D  Column  Card  with  Soltswitch  95 

Parallel  Printer  interlace/Cable  69 
Microtek  and  MFC  Interfaces  in  stock 

Grappler+ Interface  135 

DC  Hayes  Micromodem  II,  lie  with  Smartcom  245 

PFS;  File  or  PFS:  Report  or  PFS:  Graph  95 

Videx  80  Columti  Card  209 

Apple  Blue  Book  19 


commodore 


See  us  tor  Personal,  Business,  and  Educational 
requirements.  Educational  Discounts  available. 


PETSCAN  I       $245  base  price 

Allows  you  to  connect  up  to  30  CBM/PET  Computers  to 
shared  disk  dnves  and  printers.  Completely  transparent  to  the 
user.  Perfect  lor  schools  or  multiple  word  processing  con- 
figurations. Base  configuration  supports  2  computers.  Addi- 
tional computer  hookups  SI  DO  each. 


COMPACK/STCP 


$115 


Intelligent  Terminal  Package  for  PET,  CBM,  C64 

Includes  ACIA  Hardware  /  STCP  Software 

MSD  Dual  Super  Disk  for  IEEE  or  C64  570 

replaces  4040  drive 

SCREENMAKERS0CaluninAdapterfDrGG4     139 

Provide  big  screen  capability  for  business  applications. 
Copy- Writer  Word  Processor  for  C64  49 

Full-featured  package  with  800  lines  of  text  in  memory. 
Includes  double  column  printing,  graphi*;  capability,  full  prin- 
ter support. 

Speciaj  Screenmaker/Copy-WrlferCombo        TTO 

VICTODY  Soltware  lor  VIC  and  CG4 

l\rtetamorphosis             16       Creator's  Revenge  16 

Labyrinth  01  Creator       16       Galactic  Conquest  16 

Kortgo  Kong                  16       Annihi/ator  16 

ChomperMan              16       Grave  Robbers  13 

Bounty  Hunter              16       Adventure  Pack  I  or  II  16 


GO 


11 

78 

285 

189 

n 

40 

36 
11 


PAPER  CLIP  Word  Processor-  CBIi/C64 
ORACLE  Oata  Base  from  Batteries  Induded 
SPINNAKER  Software  C64,  Apple,  IBM.  Atari 
Computel's  First  Book  ol  PET/CBf/l 
POWER  ROM  Utilities  for  PET/CBUS 
WordPro  4-1-  -  8032,  disk,  printer 
VISICALC  for  PET,  ATARI,  or  Apple 

Compute's  First  Book  ol  64  Sound  &  Gi^pjilcs 
SM-KIT  etthanittd  PET/CBM  ROM  Dlllities 
PET  Spacemaker  II  ROM  Switch 
Compute's  First  Book  ol  Games 
Dust  Cover  lor  PET  CBM,  4040,  or  8050  8 

CmC  Intetlaces  [ADAIBOO,  ADA1450,  SAOI  In  stociq 
Compute!  s  Reference  Guide  to  64  Graphics  1 1 

ComputS  s  Machine  Language  for  Beginners  f  1 

HES  Sojfware  and  Nanlware  In  stock 

FlexFile  for  PET/CBM/C64         $59 

DataBase,  Report  Writer  with  calculations,  Mailing  Lists. 
Easy  to_use,  and  can  be  modified. 

FOflTH  for  PET/CM  full  FIG  model  -"cargiie/Riiey  50 
includes  all  FORTH  79  Standard  extensions,  structured  6502 
assembler  with  nested  decision  macros,  standard  16x64 
screens,  ability  to  read/write  BASIC  sequential  files,  sample 
programs,  introductory  -I-  reference  mafiual. 
Metacompiiier  for  FORTH  for  independent  object  code  30 
Floating  Point  for^FDRTH  ZG 

KMMM  PASCAL  iVfoV  PeWbM/CM  "99 

Virtually  full  Jensen-Wirth  implementation  is  now  suitable  for 

advanced  placement  courses. 

EARL  for  PET/CBM/CB4_disk-based  ASSEMBLER  _   59 

SuperGraphics  -  BASIC  linguage  Eitenslons  45 

Fast  graphics, jound.  turtle  graphics  routiriesjor_P_ET/CBM. 

RAH/fl OMjo'-  PET/CBM^ "4KS75   "8KS90 

COM AL  LangTage  Tor  C64rCBM,  P£T  "  1 4' 

Smart  Terminal  Software  for  CB4/VIC  10 

CBM  Public  Oomain  Software  -  C64  27  disks  75 


STAT  for  PET/CBM/C64  and  Apple  95 

Comprehenshre  Statistical  Analysis  Routines 
Includes  complete  file  handling  capabilities,  summary  statis- 
tics, confidence  intervals,  hypothesis  tests,  exponential  mean 
tests,  multiple  and  power  series  regression,  analysis  of  vari- 
ance, histograms,  and  non-paramelric  tests. 

PageM  ate  60  C  omman  d^Word  Processor  20 

Full-featured  package  for  all  Commodore  computers.  Full 
screen  editing,  and  supports  disk,  tape,  and  all  printefs. 


DISK 
SPECIALS 


Scotch  (3M)  5"  ss/dd 
Scotch  (3M)  5"  ds/dd 
Scotch  (3M)  B"  ss/sd 
Scotch  (3M)  8"  ss/dd 


10/2.10  50/1.90  100/1,86 

10/2.65  50/2.45  100/2.40 

10/2.20  50/2.00  100/1.98 

10/2.80  50/2.50  100/2.47 


We  Stock  VERBATIM  DISKS 

Write  for  Dealer  and  OEM  prices. 


Seminal  5"  ss/dd 
Seminal  5"  ds/dd 


10/1.80  50/1,75  100/1-65 
10/2.40  50/2.35  100/2.25 


We  stock  Dysan  disks 


Wabash  5"  ss/sd 
Wabash  5"  ss/tid 
Wabash  5"  ds/dd 


10/1.45  50/1.40  100/1.35 
10/1.60  50/1.55  100/1.50 
10/1.95  50/1.90  100/1.80 


We  stock  MAXELL  DISKS 

Write  tor  dealer  and  OEM  prices. 

Disk  Storage  Pages     1 0  foe  $4   Hub  Rings  50  for  S6 
Disk  Library  Cases      8"— 3.00  5"— 2.25 
Head  Disk  Cleaning  Kits    12 
AMARAY  Disk  Storage  Systems  in  stock. 
lnnovaliye_Concepts  FLIP  'N'  FILES  in  stock, 

CASSEHE  TAPES— AGFA  PE-B1 1  PHEMIUM 

C-IO  10/ ,61      50/ .S3        100/ .50 

C-30  10/ .85      50/ .82       100/ .70 


f^mrff 


data 
systems 


ZVM-122A                   99       ZVM-123G  89 

ZVM-131                     300       a/M-135  490 

Z1 00  16-hit/8-bit  System  jlALL 

Z29  Terminal  (DEC  and  ADM  compatible)  680 

Z-1 50  IBM  PC  COMPATIBLE  CALL 

Z-160  PORTABLE  PC  CALL 

We  stock  entire  Zenith  line. 

USI  Video  Monitors  -  Green  or  AMBER  20  MHz  hhrts 

Dealer  and  OEM  inquiries  invitei 


WRITE  FOR  IBM  PC  COMPATIBLE  PRICES 
MulliPiin—iSK  or  Apple 

Quadboard  lor  IBM  available 

KOALA  PAD  Touch  Tablets— Apple,  Atari,  IBM,  CBM 

Peacliteit  5000  Software  Package 

PFS  Soltware  for  IBM  anit  Apple  in  stock 

SPINNAKER  Software  C64/VIC,  Apple,  IBM,  Atari 

VOTRAX  Personal  Speech  System 

BMC  9191  Color  Monitor 

BMC12A  12"  Green  Monitor 

Oynai  (Brottiei)  DX-1 5  Daisy  Wheel  Printer 

Bnitlicr  HB-2S  Diisy  Wlieel  Printer  {25  cp^ 

lloh  Prowriter  Parallel  Printer 

Panasonic  1 090  Piiater  witk  Correspondence  Mode 

Gemini  I  OX 

EPSON.  Okldata.  Star  Mlcranlcs  priotere  In  tXvA 

USI  CompuMOO  4   R  F  Modulator 

We  Stock  AMDEK  Monitors 

A  P  Products 

COMPUTER  COVERUPS  IN  STOCK 

BROOKS  6  Quitet  Surie  SeppraMor/NolH  Filter 

Surge  Suppressor-6  outlet 

Elecirohome  1302-2  13"  Hi-res  RGB  Iktonitor 

Panasonic  1 2"  Monitor  (20  MHz)  with  audio 

Synertek  SYM-1  Mlcnoniaputer 


179 


269 
229 

79 

459 
749 

379 
279 
ZB9 

29 

15%  OFF 

54 

29 
335 
137 
IS9 


im 


Hewlett  Packard 

Write  or  call  for  prices. 

DATASHiELrDACKUP  POWErTduTc        $265 

Battery  back  up  Unintemiptible  Power  Supply  with  surge  arid 
noise  filtering.  The  answer  to  your  power  problems. 

"  AMi  -  we" wcrEFiRnrNE"" 

SPINNAKER  and  Broderbund  Software  in  stock. 


21  5-822-7727 

252  Bethlehem  Pike 
Colmar.  PA  1891 5 


A  B  Computers 


WRITE  FOR  CATALOG.  Add  ST50  per  order  for  United  Parcel 
We  pay  balance  of  UPS  surface  sfiipping  charges  or:  all  prepaid  orders 
(add  extra  for  mail.  APO/FPO,  air).  Prices  include  cash  discount 
Regular  prices  shgtitiy  higtier.  Prices  subiect  to  change 


I,  for  one,  see  things  in  a  much  more  pos- 
itive Ught. 

The  Best  Tool  Available 

The  fact  of  the  matter  is  that  I  use  computers  for 
several  reasons,  I  use  a  word  processor  for  all  my 
correspondence,  books,  and  articles  because  it  is, 
quite  simply,  the  best  tool  available  for  the  job. 
The  fact  that  some  authors  can  whip  out  books 
in  front  of  an  old  Underwood  is  fine  with  me — 
but  I'm  not  one  of  those  authors.  Dr.  Brod  sug- 
gests that  authors  who  use  word  processors  do 
not  produce  as  finely  crafted  works  as  those  who 
have  to  completely  retype  their  early  drafts. 

I  think  he  is  confusing  technology  with  writ- 
ing style.  Yes,  it  is  easier  to  change  a  line  or 
paragraph  with  a  word  processor — one  doesn't 
have  to  retype  an  entire  page.  But  if  I  have  writ- 
ten something  that  just  doesn't  hang  together,  I 
rewrite  it  from  scratch,  and  so  do  many  other 
authors  with  whom  1  have  talked.  In  fact,  1  have 
found  that  college  students  often  hand  in  essays 
that  they  would  really  like  to  change,  simply  be- 
cause the  time  associated  with  retyping  the  com- 
plete document  is  prohibitively  long.  The  pres- 
ence of  a  word  processor  may,  in  fact,  make 
better  writers  of  all  of  us. 

Parents  are  right  to  be  interested  in  their 
children's  education,  and  they  are  right  to  realize 
that  the  computer  can  be  an  important  educa- 
tional tool.  But  to  suggest  that  the  success  of 
Apple  and  Commodore  and  IBM  has  arisen  out 
of  a  fear  in  the  buying  public  is  (and  this  is  not  a 
medical  opinion  on  my  part)  pure  hogwash. 

Yes,  guilt  has  been  used  to  sell  computers, 
especially  in  the  late  1970s  {"Make  an  invest- 
ment in  your  child's  future — buy  a  computer"), 
but  this  isn't  any  different  from  the  time-honored 
approach  for  selling  encyclopedias. 

True,  It's  Not  Perfect 

Now  I  know  that  some  of  you  must  be  saying  that 
the  computer  revolution  isn't  all  it's  cracked  up 
to  be,  that  computers  are  frustrating  to  use,  that 
they  cause  disruptions  in  offices  when  they  are 
installed,  and  that  computers  and  robots  are  likely 
to  change  the  very  nature  of  our  workforce — 
especially  in  the  blue  and  pink  collar  areas. 

You  are  right,  of  course.  Many  of  us  use 
computers  in  spite  of  their  poor  user  interfaces 
(even  though  these  are  improving  all  the  time), 
and,  yes,  a  lot  of  jobs  are  going  to  disappear  in 
the  near  future.  But,  after  all,  we  have  been 
down  this  road  before  in  our  history.  Many 
buggy  whip  manufacturers  must  have  either 
changed  their  business  or  gone  bankrupt  when 
the  automobile  replaced  the  horse. 

The  computer  will  be  no  more  or  less  trau- 
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matic  in  its  impact  on  society.  Dr.  Brod  is  quick 
to  point  out,  of  course,  that  the  convenience  of 
automobiles  has  brought  with  it  50,000  annual 
deaths  on  our  nation's  highways,  and  some  se- 
vere smog  problems  as  well. 

1  would  be  the  last  to  suggest  that  the  auto- 
mobile has  been  an  unqualified  blessing,  but  I 
can't  imagine  our  culture  surviving,  let  alone 
growing,  if  we  went  back  to  the  horse  and  buggy. 

A  Heavier  Workload 

One  of  Dr.  Brod's  points  is  that  many  of  the 
labor-saving  aspects  of  computers  haven't  been 
realized  by  the  people  who  are  using  them.  Sec- 
retaries who,  according  to  the  v/ord  processor 
ads,  should  now  have  time  for  "that  extra  cup  of 
coffee"  are  finding  that  their  ability  to  generate 
letter-perfect  documents  is  increasing  their  work- 
load as  their  managers  ask  for  work  to  be  redone 
until  it  is  perfect.  Organizations  that  functioned 
adequately  when  financial  statements  were  gen- 
erated quarterly  are  now  using  electronic 
spreadsheets  to  do  financial  statements  on  a 
weekly  basis,  thus  increasing  the  workload  for 
that  department. 

Dr.  Brod  is  correct  in  assuming  that  more 
isn't  necessarily  better,  but  one  must  ask  how 
much  the  computer  contributed  to  the  increased 
flow  of  information.  From  my  own  experiences 
inside  Fortune  500  companies,  the  information 
backlog  has  been  there  all  the  time — all  the  com- 
puter is  doing  is  helping  to  handle  a  preexisting 
problem. 

As  1  mentioned  a  few  months  ago,  John 
Naisbitt's  concept  of  high-tech/high-touch  (as 
expressed  in  his  book  Megatrends)  showed  that  as 
we  became  more  involved  with  the  use  of  tech- 
nology in  our  work  and  play,  we  have  also  be- 
come more  interested  in  those  things  that  make 
us  uniquely  human.  Dr.  Brod  claims  that  the  re- 
verse is  true — that  the  computer  world  is  symbol- 
intensive,  not  sensual,  and  that  this  constricts 
us  in  our  ability  to  interpret  and  create  in  a 
human  way. 

If  this  is  the  case,  then  how  was  Michel- 
angelo able  to  create  such  a  sensitive  work  of  art 
as  the  Pieta  using  such  cold  and  inhuman  tools 
as  the  hammer  and  chisel?  Once  again,  I  feel  that 
Dr.  Brod  has  confused  the  technology  with  its 
use.  The  two  are  quite  different  from  each  other. 

The  Computer  As  Scapegoat 

And  yet,  in  chapter  after  chapter,  we  find  that 
computer  technology  is  the  purported  cause  of 
much  that  is  "wrong"  with  our  society.  His  chap- 
ter on  computers  and  kids,  for  example,  is  filled 
with  the  typical  hand-wringing  about  video- 
games that  has  appeared  in  ail  the  tabloids.  This 
is  surprising,  considering  that  many  of  his  col- 


leagues  who  have  actually  researched  the  matter 
find  that  video  arcades  do  not  cause  perversion, 
or  even  acne. 

After  devoting  several  chapters  to  his  obser- 
vations of  the  purported  ills  foisted  upon  us  by 
computers,  Dr.  Brod  does  give  some  careful 
thought  to  ways  to  make  us  capable  of  handling 
this  technology,  even  though  many  of  us  never 
knew  we  had  any  problems. 

Technostress  is  a  book  filled  with  quotable 
material,  and  it  will  probably  be  heralded  as  an 
important  book  by  technophobes  everywhere.  It 
will  probably  receive  a  lot  of  press,  and  its  au- 
thor will  probably  be  in  great  demand  as  a 
speaker,  as  he  carries  his  message  to  the  world. 
After  all,  as  a  society,  we  always  seem  to  favor 
the  bad  news  over  the  good,  and  seem  to  devote 
our  energies  to  looking  for  only  the  real  or  im- 
agined wrongs  in  our  world. 

If  Dr.  Brod  wanted  to  perform  a  service  to 
mankind,  he  might  have  devoted  his  energies  to 
solving  this  problem,  rather  than  extrapolating 
the  quirks  of  his  patients  to  the  rest  of  society.   © 


COMPUTEI 

The  Resource. 


ONE  PROGRAM  YOU  CAN'T 
AFFORD  TO  BE  WITHOUT! 


ffgy!^T■T,^^J:!^\^^^iJJJ-;i^■.'^:!j;!{^^^.;v■\tTT^7-!^.?^^ 


INQUIRY... 

•  Ciiuers  all  hardware,  sotlwars,  and  accessories  in  your 
tiomE.  or  in  transit 

•  Insured  an  a  replacement  cast  basis 

•  All  Risk  Coverage  including  Hood,  quake,  and  breakage 

•  Covers  damaqe  to  DP  equipment  Irom  sbort  circuil.  blow- 
out.  or  other  electrical  damage  or  disturbance 
—including  wiring 

•  Automatic  coverage  lor  newly  acquired  property  up  to  EQ 
days 

•  Can  be  used  lor  business  or  personal  use  or  combination 

•  Even  covers  equipment  leased  or  rented  Irom  uthers. 

•  Low  $5D  deduclilile 

•  VISA  or  MaslerCard  accepted. 


Now  you  can  protect  your  investment  with  Broad  Form, 
low  cost  protection  from  Market 

Policy  Limit  Annual  Premium 

up  to  $2,500 $22.50 

$  2,501-55.000 $32.50 

$  5,001-515,000 $47.50 

$15,001-525,000 $62.50 

(Higher  limits  are  avaiialjle  upon  request) 
Call  today  toll  free  for  immediate  coverage  or  more  information! 


^ 


MARKELSERVKE^INC 

5310  Markel  Road,  Richmond,  VA  23230 
1 -800-446-6678  or  1  -800-552-3408  (VA) 


Are  you  getting  as  much 
out  of  yow  Commodae 
c^  Ckxnmodoie  put  in? 

Your  Commodore  has  so  much  potential  it  would  Ido  a  shame 


to  usejusta  smail  partof  it, 

To  get  more  out  of  your  Commodore,  use 

New  American  Library  computer  books, 


r 


Mastering  sight 
and  Sound  on  ttie 
Commodore' 64'" 

by  Kent  Porter 

A  crvstal-clear  guide 

ontiowyoucan 

create  beautiful 

coiorgroptiicsond 

music  on  your 

Commodore'M." 


The  Computer 
Phone  Book™ 

by  Mike  Cane 
Adirectory  of  online 
computer  systems. 
Publishers  Weekly 
has  called  this  "an 
institution  in  the 
making." 


PORTER'5 

PRDERErns 

cmnnntEH 


The  Computer 
Phone  Book" 
Online  Guide™ 
lo  Commodore* 
Computers 

byfvlikeCane 
Acomplete  tele- 
communications 
handbook  for  the 
Comnfyxlofe*64™ 
SX64,™andVic20™. 


Po  tier's  Prog  roms 
for  Hie 
Commodore'M'" 

by  Kent  Porter 
Abrood  range  of 
programs  written 
specificallyfortt^e 
iDommodore'M." 


New  American  Library 
P.O.Box999,Bergenrield,HJ  07621 


(g)(Z) 


Please  send  nne: 

Mastering  Sight  &  Sound  on  the  Commodore*  64™ 

(Z&190 )  S9.95 ;  The  Computer  Phone  Book"  Online 

Guide'"  to  Commodore' Computers  (XE2084)S9,95 
;  The  Computer  Phone  Book"  (Z54<16)  S9.95  _ 


Porter's  Programs  lor  the  Commodore*  64'"  (XE2090) 

S4.95 Please  includeSI  ,50  shipping  and  handling 

per  order 

I  enclose check.. 


or  cash),  or  charge  _ 


nnoney  0fder(  no  COD'S 

-Visa Mastercard. 


Card' 


Eip.Date 


Stgr>al\ira 


h<ame 


city 


Zip 


A)  owQfintnEmumo(i\Aee(£sfofde3iverv- This  cffef.  prices,  ondnunnbefs 
ore  subject  toehar>Qe  wiThouT  nottce  Offer  empires  Dec.  30. 1964 
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Learning  With  Computers 


Glenn  M,  Kleiman 


The  Computer  Speaks, 
But  Will  It  Listen? 


Computer-generated  speech,  already  used  in 
some  software,  will  be  incorporated  into  many 
educational  programs  in  the  next  few  years.  Spo- 
ken instructions  and  responses  will  be  used  in 
programs  designed  for  prereading  children  and 
for  students  who  have  reading  difficulties. 
Speech  will  be  an  integral  component  of  pro- 
grams which  help  students  learn  reading,  spell- 
ing, and  foreign  languages,  and  will  make  many 
other  types  of  educational  programs  more  inter- 
esting and  enjoyable. 

Computerized  speech  can  open  new  worlds 
for  handicapped  people.  Special  programs  enable 
blind  users  to  direct  a  speech  synthesizer  to  read 
aloud  the  words  on  the  computer  screen.  This 
makes  computerized  information  bases,  word 
processing,  programming  languages,  and  many 
other  computer  tools  available  to  the  blind. 
Computerized  speech  can  also  help  provide 
communication  aids  for  people  with  speech 
impairments. 

Computerized  speech  recognition  devices  are 
also  becoming  less  expensive  and  more  readily 
available.  These  enable  computers  to  recognize 
words  people  say,  and  can  make  programs  easier 
to  use  and  more  appealing.  More  importantly, 
speech  recognition  devices  make  computers 
accessible  to  many  people  who  have  physical 
handicaps  which  prohibit  them  from  using 
keyboards. 

Two  Types  Of  Computer  Speech 

There  are  two  general  types  of  computer- 
generated  speech:  stored  vocabulary  and  unlimited 

vocabulary. 

Dr.  Glenn  M.  Kleiman  is  an  educational  psychologist  and 
software  developer.  He  is  the  author  of  Brave  New 
Schools:  How  Computers  Can  Change  Education 
(Reston/ Prentice -Hall)  and  the  designer  of  Square  Pairs, 
an  educational  game  program  (Scholastic,  Inc.). 
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Stored  vocabulary  speech  is  created  by  a 
person  saying  the  words.  Special  devices  and 
programs  measure  characteristics  of  the  sound 
waveform  (for  example,  intensity,  pitch)  as  the 
person  pronounces  each  word.  Numbers  repre- 
senting the  waveform  at  each  fraction  of  a  sec- 
ond are  stored  in  the  computer.  That  is,  the 
speech  waveform  (an  example  of  what  is  called 
analogue  information)  is  converted  to  a  sequence 
of  numbers  {digitized  information).  The  numbers 
are  then  used  to  recreate  the  sound  of  the  word 
whenever  it  is  needed. 

Stored  vocabulary  speech  can  sound  very 
human  when  individual  words  are  produced. 
However,  it  usually  sounds  choppy  and  some- 
what artificial  when  the  words  are  combined  into 
sentences.  With  this  technique,  the  computer  is 
limited  to  the  words  previously  stored  in  its 
memory. 

Each  digitized  word  requires  a  large  amount 
of  memory — many  numbers  must  be  stored  for    ' 
the  computer  to  recreate  the  spoken  words 
clearly — so  the  vocabulary  of  a  personal  com- 
puter with  digitized  speech  is  limited.  However, 
the  possibilities  for  digitized  speech  will  expand 
as  larger-capacity  computer  memories  become 
less  expensive,  and  as  more  efficient  techniques 
are  developed  for  representing  speech  waveforms 
within  the  computer's  memory. 

Unlimited  Vocabulary 

With  unlimited  vocabulary  speech,  programs  for 
generating  the  individual  speech  sound  (pho- 
nemes) are  stored  in  the  computer,  along  with 
the  rules  for  combining  them  into  words, 
phrases,  and  sentences.  This  technique  of  speech 
synthesis  enables  the  computer  to  produce  any 
word  from  its  component  sounds.  Synthesized 
speech  does  not  sound  as  natural  as  digitized 
speech,  but  it  has  been  greatly  improved  in  re- 
cent years. 


AATARI 


600XL CALL 

800XL CALL 

©  1984  ATARJ,  Inc.  All  rights  reserved. 


INTERFACES 

Axiom  846 Call 

Ape  Face    Call 

Atari  860  (In  Slocli)  ..  S169 

Interfasl  1    $150 

MicrotJits  1150 Call 

Axiom  Buffer   Call 

DIRECT  PRINTERS 

Axiom  AT-IOO    $219 

Atari  1027 $285 

Axiom  550  AT    $319 

Axiom  700  AT    $469 

Atari  1025    $395 

DIRECT  MODEMS 

MicrobitslOOOC   ,  .  -  -  $128 
Atari  1030    $114 


ADVENTURE  MTl 

Ultra  Disassembler  (□)  $33 

Diskey(D)    $33 

Adv.  1-12 (each) (C)  ...  $18 
Saga  1-12  (each|(Dl  . .  $27 
ATARI 

Atari  Writer  jR|    $68 

Paint (Dl .  $30 

Microsoft  Basic  II  (R)  .$64 

Visicalc(O)   $139 

Home  File  Mgr(D)  ...  $36 
Assembler  Ed  itOf(R)    .  $44 

Oix  (R)    $32 

Dig  Dug  (HI    $32 

Atari  LogofR)    $72 

Hobolran  (R)    $35 

AVAL0I4  HILL 

Telengard    .  (C)$16(D)$19 

Close  Assault   (C|  20(D)  23 

TAC(D)    $27 

BRODERBUND 
Arcade  l^achinelDl  ..  $39 
BankSl.WriterfD)  ...  $46 
Oper.  Whirlwind  (Dl  ..  $27 
Choplitier  .  (D|$23(R|$29 
David's  Midnigtlt(D)  ..  $23 
CBS  SOFTWARE  ....  Call 
CONTINENTAL 
Home  Accountant  (D)  $48 
Tax  Advantage  (D|  ..,$45 
COUNTERPOINTSW  Call 
OATASOFT 

Pooyan  (C/D)  $20 

Telfitalk(D)    $33 

Basic  Compiler(D)  ...  $55 

Graphic  Gen  (D|    $17 

Graphic  Master(D)  ...  $23 

Micropainter(D)   $23 

Zaxxon(C/D)   $27 

Text  Wizard/Spell  <D1   .  $55 
EASTERN  HOUSE 
l^onkey  Wrench  II    ...  $51 
EDUCATIONAL  SW 

Tricky  1,2,3  or  4 $15 

Tricky  5-13 $22 

EPYX 

Dragon  Riders  ((3/0)  . .  S27 

Temple  APS  (C/D) $27 

Jumpman(C/D| $27 

Pit  Stop  (RJ    $27 

FIRST  STAR 

Boulder  Dsh  (OD)20(R)27 

Brislles(CJO) $20 

FlipFlop(C/D) S20 

GAMESTAR 

Football  (QD)   $21 

Baseball  (CfD) $21 

INFOCOM 

Zorkl.llorlll(D)    S27 

Deadline  (D)    $34 

Starcro5S(D) $27 

Suspended  (D)    $34 

Witness  (D)   $34 

Planetlall(D) $34 

Enchanter  (D)    $34 

Infidel (D) -.  $34 

KRELLSAT    Call 

INTELL.  STATEMENTS 
Prof- B  lac  kiack{Dl   ...  $46 
UK 

Letter  Perfect  (D)    $74 

Data  Perfect  (D)    $74 

Spell  Perfect  (D|    $66 

Letter  Perfect  (R)  . . , .  $74 
MICROPROSE 

Solo  Flight  (D) $26 

Hellcat  Ace  (C(D)   $23 

MONARCH 
ABCCompiler(0} $55 


SPECIALS 

Wico Joystick $21  Maxells   $25 

Wico Trackball  $38  Mamorex  $24 

CompuServe  $26  Elephants  $18 

Covers  $7  Flip  'N  File $20 

CBM  64    GALL 

SX64 CALL 

1701  MONITOR    $249 


COMMODORE 


DISK  DRIVES 

Indus  QT Call 

TrakAT-D2    $388 

TrakAT-l    $319 

Irak  AT-D4   Call 

Astra  1620  (Dual)    .,  .  $499 

Percom  . , , Call 

Atari  1050   $349 

flanalOQO  , Call 

MEMORIES 

Microbits64K(XL)   ..  $126 

lntec48K(400)     $89 

Mosaic  48K  (400)    ....  $98 

Intec  64K  (400)    $105 

Mosaic  64K  (400/800)     Cal 

Mosaic  32K  $68 

Atari 64K(600XL)  ....  Cal 


OTHER  ATARI 

400  Keyboard Call        ATR.8000  (64K)    $448 

Koala  Pad    $67        ATR.8000(16K)   $295 

Chalkboard  Pad  $75       Alien  Voice  Box    $98 

3113  80  Column    $228        1010  Recorder $74 

ATARI  SOFTWARE 


^flSTRfl  1620 

DISK  DRIVE  SYSTEM   ■ 

MORE  FOR  YOUR  MONEY 

DOUBLE  OR  SINGLE  DENSITY 

TWO  DRIVES 

SPECIAL    $499 

Printers/ Etc. 


OPTIMIZED  SYSTEMS 

Action  (R)    $65 

Basic  XL  (R) $65 

Mac  65(D)   $58 

C-65(D) $58 

Bug  65(D)    $23 

PARKER  BROS 

AstrochasefR)   $33 

Death Star(R)   .....,,  $33 

&Bert(R) $33 

Popeye(R)  $33 

PENGUIN 

Graphics  Magician  (D)  $39 

Spy's  Demise (D)    $15 

QUALITY  SW 

Return  of  Hercules  (D)   $22 

A[iBaba(D)  $22 

RESTON 

Moviemaker  (D) $45 

SCARBOROUGH  SYS. 

Mastertype(D/R) $27 

Songwriter  (D) $27 

SCHOOL  WIZWARE       Call 
SEGA 

StarTre)!(R)    $27 

Buck  Rogers  (R)    $27 

Congo  Bongo  |R)    $27 

SIERRA  ON-LINE 

Homeword(O) $46 

Ultima  11(D)  $39 

Dark  Crystal  (0)    ....  $26 

Wiz.  &  Princess  (0)  ...  $22 

SPINNAKER 

Snooper  Troop  1, 2  (D|  .  S30 

Most  Amazing  (0)  ,  -    .  $27 

Kids  on  Keys  (D)  $20 

Trains  (D) $27 

Delta  Drawing  (R) $27 

Aerobic5(D)    $34 

STRATEGIC  SIM. 

Broadsides (D)    $27 

Carrier  Force  (D)  ....  $39 
Combat  Leader  (D|   . .  .  $27 

Rails  West  (D)   $27 

Epidemic (D)    $23 

Eagles  (0)   $27 

Cosmic  Ball  or  ll(D}  . .  $27 

SUBLOGIC 

Flight  Simulator  11(D)  .  $36 

PinbalKCfD)    $20 

SYNAPSE 

Syn  File  +  (D) $65 

SynTeit(D) $65 

File  Manager  (R) $65 

Fort  Apocalypse  (C/O)    $23 
Dimension  X  (C/D)    ...  $23 

Blue  Max  fC/D)    $23 

Encounter  (D/R)    $23 

Zepplin(C/D|  $23 

Pharoah'sCur5o(aD)    $23 
TRONIX 

S.A.M.(D) $39 

P.M.  Animator(O)  $29 

Juice  (C/D) $20 

ChalterbeefO)    $27 

MISCELLANEOUS 

Miner2049(R|  $34 

Millionaire(C/D)  $23 

Zombies  (C/D)  $23 

PriEoner2(D)    $27 

Sargon  11(D)    $23 

Gridrunner(R) $20 

B-Graph(D)   $65 

Miles  Invoices  (Dl  ....  $57 
Castle  WoifensteinjD)  $20 

Odesta  Chess  (D)  $46 

Financial  Wizard  (D)  .  .  $41 
Ultima  III  (D)    $39 


STAR 

Gemini  10X   $268 

Gemini  15X   $398 

Delta  10  $378 

SlarLetterQual Call 

EPSON 

FXeo  Call 

MX100 Call 

RXeOF/T    Call 

SMITH  CORONA 

TP  II    $438 

JUKI    Call 


CITOH 

Prowriler  $335 

Prowriterll    $648 

Starwriler   $1098 

Printmaster $1448 

OKIDATA 

82A    

84P    

92     

93     

MANNESMAN 

160L   

Spirit  


.  Call 

.  Call 

.  Call 

.  Call 

$588 
.  Call 


MONITORS 


AMDEK 

Color  I   $274 


NEC 

GRN(JB12B0|    $115 


V300 $139      GRN(JB1201) 


V300A     $149 

Color  II   $449 

SAKATA   Call 


,  $149 


Color  Composlle    ..  .  $298 
RGB  Color $598 

PANASONIC   Call 


MODEMS 


HAYES  NOVATION 

Smartmodem   $209     J. Cal    

Smartmodera  1200  -  -  $498  Apple  Cat  II 

Micromodemll  $259  D-Cat     .... 

Micromodem  lie  ....  $239 


..S99 
.  $259 
.  $149 


COSMIC 
COMPUTERS 


UNLIMITED 


727  BREA  CANYON  RD.,  SUITE  16 
WALNUT,  CA  91789 

ORDER  LINES  OPEN  MON-SAT  8  am  -  8  pm 

(800)  626-7642 


IN 


PLEASE  FOR  ORDERS  ONLY 
SORRY,  NO  COD'S 


c;uF.(714)  594-5204 

FOR  TECHNICAL  INFO,  ORDER  INQUIRIES, 
OR  FOR  CALIFORNIA  ORDERS 

AdiJ  $250  snipping  per  sollware  order  in  contirvenial  U  S  Add  $5  DO 
snipping  per  software  order  for  AK.  HI.  FPO-APO.  Ada  1 10  00  or  15V> 
[wliicliever  IS  Qrealer)  per  software  order  tor  non-U. 5  Call  tor  cost  of 
tiardware  shipping.  Calit,  residents  add  SViVo  sales  tax  Cashiers 
checks  or  money  orders  tilled  within  24  hours  tor  items  m  stock 
Personai  checks  reqoire  4  weeks  to  clear  MasterCard  and  Visa  OK  for 
software  only  within  continental  ti  5..  add  3%  surcharge.  Include  card 
no.,  expiration  dale  and  signature.  Due  lo  our  low  prices,  all  sales  are 
linaL  All  deleclive  returns  must  have  a  return  aulhofl^aiion  numher 
Please  call  to  ot^tain  one  before  returning  goods  for  replacement  or 
repair.  Prices  4  availacilily  sub|9Cl  lo  change 


DISK  DRIVES 

MSD(170K)   $349 

MSD(Dual)(170Kx2)  .  $539 

Laser  (170KI    $325 

Commodore  1541  ...$239 
Concord  (170K)    Call 

80  COLUMN  BDS 

Batteries  80  Col    ....  $138 

Video  Pak  80  $129 

ZBO  Video  Pak $209 

RECORDERS 

Cardeo  Recorder  ....  Si8 
1530 Commodore  -  . .  Call 
Cassette  Interface  .  . .  (29 


INTERFACES 

Ttie  Connection   .....  $85 

Bus  Card  $138 

Cardeo  G  +   $69 

Cardeo  B    Call 

IvtSDllEEE)   $98 

Cardeo  5  Slol    $46 

RS-232    Call 

DIRECT  PRINTERS 

MPS801     $219 

Commodore  1526  . . .  $288 

Cardeo  LQ/I $498 

1520  Color  Printer  .  ..  $129 

DIRECT  MODEMS 

Hesmodem  $53 

1650  Automodem  $99 


64 


1600  Modem Call 

SOFTWARE 


64 


$15 


$48 
$39 


ACCESS  SOFTWARE 

Beached  (D) $24 

Neutral  Zone  (C/D)    ...  $24 

Spri1emaster(D|  S25 

AVALON  HILL 

NukeWar(C| $12 

Androm.  Conquest  (C}  $14 
Midway  Campaign  (C)  $13 
Computer  Football  (C)  $13 
Telengard    .  (C)$16(D|$19 

Flying  Ace  |C)  $13 

Moon  Patrol  (C) $17 

BATTERIES  INCLUDED 

PaperClip(D)    $69 

Consultant  (Dl  .......  $75 

Bus  Card $138 

80  Column  BD $138 

Paper  Clip  wISpell  ID)     £85 

Spell  Pack  (D)  $37 

Organizer  Series  (Ea)  .$22 
BLUE  SKY 

Calc  Result  Adv $99 

Calc  Result  Easy    —  $57 

BROOERBUNO 

Bank  St,  Writer  (D)   ...  $46 

Operat.  Wtirlwnd(D)  . .  $2? 

ChopMfter(R)    $27 

Lode  Runner  .  (D)23(R|27 
CBS  SOFTWARE 
Success  Willi  Matti(D)  $17 
WbstrV^ordGamelD)  $20 
Learning  Bridge  (D)  ..$55 
COMMODORE 
Simon's  Basic(R)  ....  $17 

Magic  Desk  (R)   .  $48 

Logo(D|  $45 

Assembler  64(D)    $15 

Easy  Script  64  (Dl   $32 

Accounting  Phgs(Ea)  $32 
COMPUTER  ADV.  IDEAS 

(Same  Stiow(D) $27 

WinW/Wordslorll(D)   $15 
Sports  Fads  (D|   ... 
CONTINENTAL  S.W. 
Home  Accountant  (Dl 
Tan  Advantage  iO)   . . 

FCM  ID)   $34 

COUNTER  POINT  SW 

Early Games(Ea)    $20 

CREATIVE  SOFTWARE 

Moondust  (R)    $23 

Save  New  York  (H)    ...  $23 

PipesIR)    $23 

Househid  FinancB(C)  $20 
DATASOFT 

Pooyan  (C/D) $20 

MoonSfiu1t)B{D) $20 

ENTECH 

Studio  64  (C/D|    $28 

Database  64(D)    $45 

EPYX 

Temple  of  APS  (C/Dl  .-  $27 

Jumpman(C/D) $27 

Dragonriders  (C^DI   ...  $27 

Pitstop(R|   $27 

Gateway  to  APS  |R)  ,  -  $27 
FIRST  STAR 

Astrochase(C/D)  $20 

Bristle  |C(D| $20 

Flip  Flop  IC/DI $20 

FUTURE  HOUSE 

Comp,  Pers- Account,    $56 

HES 

Synltiesound  64(D)    ..  $23 

Omni[:aic(D)  $34 

Omniwriter(D)    .  -  .  , . ,  $45 

Hesmon(D)   $27 

64  Form  (R)   $39 

Multiplan(Dl   $65 

Turtle  Graptiic5(R)  ...  $39 
INFOCOM 

Planet  Fall  (D|  $34 

Enctianter(D)   $34 

Infidel  |0) $34 

JINSAM 

MiniJini(R)  $75 

M1CR0S0FTWARE  INTL 
Practicalc64  .  (C)34|D)3B 
Spreadsheet   .  [C)49|D|52 

Practiflle64|D)  $36 

MIRAGE  CONCEPTS 

Data  Base  (D|    $68 

Word  Processor  ID)    ..$68 


MICROSPEC 

Database  (D)  $44 

Mailing  List (D|  $32 

Checkbook  Mgr(D)  , . .  $47 

G/L(D)   $44 

A/P(D1    $47 

AyR(D)    $47 

PARKER  BROS 

Q-BerllR) $33 

PopeyelRl  $33 

Frogger  (R)    $33 

PROFESSIONAL  SW 

WordPro W/Spall(D|  . .  $63 

Spellrigtit(D| $45 

QUIKTEX 

Quick  Br.  Fox  (R) $49 

RAINBOW 

File  Assistant  (D)   ....  $46 

Writers  Assistant  (D)   .  $48 

Spreadslit  Assist.  (D)  .  $56 

SCARBOROUGH 

Mastertype(D/R) $27 

SongWriterlO)  $27 

SEGA 

Star  Trek  |R)    .  ,. . $27 

Buck  Rogers  (R)    $27 

Congo  Bongo  (R)    ....  $27 

SOFTSMITH 

Touch  Typing  (C/Dl  ...  $21 

SOUTHERN  SOLUTIONS 

Businessman (D)   ....  S48 

BillPayer{D)  $48 

9illColleclor(D)  $48 

Paymaster  (D) $48 

SPINNAKER 

Snooper  1  or  2(0)     ...  $27 

Aerobics  (Dl    $34 

KIrlson  Keys|D)  $20 

Most  Amazing  (D) $27 

KindBrcomp(D) $20 

Alphabet  Zoo  (D) 20 

Trains(D) - $27 

Delta  Drawing  (B) $27 

Delta  Music  (R)  $27 

SUBLOGIC 
FlighlSlmuialorlt(Dl  .  $36 

Pinball  (C/D)    $20 

SYNAPSE 

Ft.  Apocalypse  IC/D)    .  $23 

Necromancer(C/D)  ...  $23 

Za!txon{D) $23 

Blue  Max  (D)  $23 

Pharoati'sCurse(C/Dl    $23 

Zepplin(D| $23 

Ouasimodo(D)    . .  $23 

SSI 

Combat  Leader  (C/D)  ,$27 

Computer  Baseball(D)  $27 

Eagles  ID)   $27 

Ringside  Seat  ID)    $27 

Tigers  In  Snow  (C/D)  . .  $27 
Battle  Normandy(C:/D)  $27 
TIMEWORKS 

Dungeons  ol  Alg.  |C/D|  $17 
Robbers  Lost  IC/D)  ...  $17 

Money  Mgr.  (C/0)    $17 

WallStreet(C/D) $17 

Data  Manager  |C/0)  ..  $17 
Elec.  Checkbook  (CaO)  $17 
TOTL 


(C)$32(D)$34 
(C)$15(D)$17 
(Q  $24(0)  $27 
|C)  $24(0)  $27 


Toll  Text 
Label    . . . 
Time  Mgr, 
RsrchAsst. 
TRONIX 

S.A.M.(D) $39 

Juice  (D)    $23 

ChatlerSee(D|    $27 

MISCELLANEOUS 

Diskey(D)    $33 

Barrens  Sat  (D)   $59 

Millionaire(D|  .  $39 

Sargon  II  ID)    $23 

B.Graph(D)   $59 

Ca3lfeWolfenstein(D)  $20 

Odesta  Chess  (D) $46 

UHimalll(D)    ,,...,...  $39 
Prof.  Blackjack (D)   ...  $46 

Homeword(O) $46 

Pers.  Accountant  |0)   .  $23 

Karate  Devils  ID) $27 

Final  Flight  ID)    $22 

MAE  Assembler  (Dl    ..  $47 


Phoneme  synthesis  techniques  have  been 
combined  with  text-to-speech  conversion  pro- 
grams. These  programs  contain  a  set  of  rules 
which  tell  the  computer  how  to  change  any  se- 
quence of  letters  into  speech.  Creating  a  program 
of  this  sort  for  English  is  difficult,  since  many  let- 
ters and  letter  patterns  are  pronounced  in  various 
ways,  depending  on  the  context  of  their  use.  For 
example,  the  word  read  is  pronounced  differently 
depending  upon  whether  it  refers  to  the  past  or 
future  (for  example,  ]ohu  read  the  book  versus 
]ohn  will  read  the  book).  The  same  aspects  of 
English  which  cause  difficulties  for  people  in 
learning  to  read  also  cause  difficulties  in  pro- 
gramming computers  to  convert  written  English 
to  spoken  English. 

While  text-to-speech  programs  do  not  pro- 
duce human-sounding  speech,  most  people 
understand  it  easily  after  a  short  time — much  the 
way  we  can  understand  someone  who  has  a  for- 
eign accent  and  mispronounces  some  words. 
Text-to-speech  is  valuable  for  people  with  im- 
paired vision.  However,  it  is  not  suitable  for 
educational  applications  in  which  clear  speech  is 
essential. 

A  Talking  Apple 

The  Echo  II  speech  synthesizer,  for  Apple  II 
computers,  makes  use  of  both  stored  and  un- 
limited vocabulary  techniques.  The  Echo  II  is  a 
board  that  plugs  into  a  slot  in  the  Apple.  A 
speaker  or  headphone  then  plugs  into  the  board. 
The  board  has  volume  and  pitch  controls,  but 
these  can  also  be  controlled  from  software.  The 
basis  of  the  Echo  II  is  a  speech  synthesis  chip 
made  by  Texas  Instruments.  This  chip,  an  ad- 
vanced version  of  the  one  used  in  the  original 
Speak  and  Spell  toy,  is  used  in  most  of  the  avail- 
able speech  synthesizers. 

The  Echo  II  comes  with  a  text-to-speech  pro- 
gram. It  also  allows  you  to  enter  speech  more  di- 
rectly by  using  symbols  to  represent  each  sound 
(for  example,  there  are  different  symbols  for  the 
long  e  of  Pete  and  the  short  e  of  bet).  In  addition, 
a  disk  containing  700  digitized  words  is  avail- 
able. These  provide  a  good  demonstration  of  the 
superior  quality  of  digitized  speech. 

With  the  Echo  II,  it  is  easy  to  add  speech  to 
your  own  program.  You  can  change  the  volume, 
pitch,  and  rate  of  speech,  all  under  the  control  of 
your  program.  Produced  by  Street  Electronics, 
the  Echo  II  sells  for  about  $150.  Street  Electronics 
also  produces  speech  synthesizers  for  the  IBM 
PC  and  for  other  personal  computers.  Other 
speech  synthesizers  are  available,  including 
Type-'N-Talk  from  Votrax,  Mockingboard  from 
Sweet  Micro  Systems,  and  S.A.M.  from  Don't  Ask 
Computer  Software. 
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Computers  That  Listen 

A  great  deal  of  research  has  been  devoted  to 
getting  computers  to  recognize  people's  speech. 
This  research  has  shown  that  speech  is  very 
complex  and  that  we  do  not  fully  understand 
how  people  are  able  to  recognize  spoken  words 
so  easily.  It  is  much  more  difficult  to  make 
computers  recognize  spoken  words  than  it  is  to 
make  them  pronounce  words.  However,  ad- 
vances have  been  made  and  some  usable,  al- 
though limited,  devices  are  now  available. 

Current  systems  for  personal  computers  re- 
quire the  user  to  program  the  computer  to  distin- 
guish among  a  number  of  spoken  words.  The 
technique  is  related  to  stored  vocabulary  speech. 
The  individual  selects  a  vocabulary  to  be  used. 
He  says  each  word,  then  the  computer  digitizes 
the  sound  patterns  and  stores  a  set  of  numbers 
representing  the  waveform  of  the  word. 

Once  trained,  the  computer  recognizes  a 
spoken  word  by  digitizing  it  and  comparing  the 
resulting  pattern  of  numbers  to  the  patterns 
stored  in  its  memory.  Since  the  pronunciation 
changes  slightly  each  time  an  individual  says  a 
word,  exact  matches  are  not  expected,  but  the 
computer  is  programmed  to  find  the  closest 
match.  Since  people  differ  widely  in  their  speech 
patterns,  these  systems  are  reliable  only  in 
recognizing  the  words  spoken  by  the  person  who 
spoke  the  original  training  set. 

The  digitized  representation  of  each  word 
uses  up  a  lot  of  computer  memory,  and  the 
matching  process  becomes  progressively  slower 
and  less  reliable  as  more  words  are  added. 
Therefore,  speech  recognition  systems  work  well 
only  with  limited  vocabularies. 

It  Takes  Dictation 

One  speech  recognition  device  is  the  Voice  Entry 
Terminal  (VET-2),  produced  by  Scott  Instruments 
for  Apple  II  computers.  The  VET-2  can  be  pro- 
grammed for  sets  of  up  to  40  words.  The  Apple 
II  can  hold  only  one  set  in  memory  at  a  time,  but 
others  can  be  loaded  from  disk  as  needed. 

One  important  characteristic  of  the  VET-2  is 
that  it  functions  as  a  keyboard  emulator.  It  plugs 
into  the  computer  in  parallel  with  the  keyboard, 
so  both  can  be  used  together.  Each  spoken  word 
is  associated  with  a  string  of  printed  characters. 

When  the  spoken  word  is  recognized,  the 
VET-2  sends  the  same  signals  to  the  computer 
that  the  keyboard  sends  when  the  associated 
keys  are  pressed.  Therefore,  you  can  have  the 
VET-2  recognize  a  spoken  name  for  each  key 
and  then  "type"  by  saying  the  names  of  letters, 
numbers,  and  special  characters.  You  can  then 
use  standard  software  with  voice  input  replacing 
the  keyboard. 


What  About  Language? 

Current  technology  for  personal  computers  en- 
ables us  to  have  computers  speak  and  recognize 
individual  words.  But  what  about  sentences  and 
paragraphs?  For  speech  production,  we  can  have 
the  computer  string  words  together,  but  replicat- 
ing the  intonation  and  stress  patterns  of  human 
voices  is  another,  much  more  difficult,  matter. 

For  speech  recognition,  anything  more  com- 
plex than  the  simplest  sentence  creates  inordinate 
difficulties.  Try  listening  to  fluent  speakers  of  a 
language  you  do  not  understand.  Can  you  even 
tell  where  one  word  ends  and  the  next  begins? 
Recognizing  the  words  in  spoken  sentences  gen- 
erally depends  upon  being  able  to  understand 
meanings,  something  we  have  not  yet  learned  to 
program  personal  computers  to  do. 

Getting  computers  to  produce  and  under- 
stand language  is  the  focus  of  much  of  the  effort 
of  researchers  in  artificial  intelligence.  They  have 
had  only  limited  success,  with  very  powerful 
computers.  For  the  present,  we  will  have  to  be 
content  with  personal  computers  which  are  at  the 
single-word  state  of  language  development. 

Street  Electronics  (Echo  U) 
7140  Mark  Ave. 
Carpinteria,  CA  93013 

Sweet  Micro  Systems  (Mockingboard) 
Cranston,  RI  02910 

Votrax  aype-'N-Talk) 
500  Stephenson  Highway 
Troy.  Ml  48084 

Don't  Ask  Computer  Software  (Software  Automatic 

Mouth) 

2265  Westwood  Blvd 

Los  Angeles,  CA  90064 

Scoli  Instruments  (Voice -Entry -Terminal) 

nil  Willoiv  Springs  Drive 

Denton,  TX  76201  © 


THOUGHT  &  SPEECH  RECOGNITION 


CAN  BE  YOUR  EXPERIENCE,  INSTANTLY  !!! 

JUST  DIRECTLY  CONNECT  THE  FAZER  INTO  YOUR  JOYPORT  -  EASY  AS  THAT  II! 

TRY  IT. 

FAZE  INTO  YOUS  COMPUTER  WITH  OUR  NEW,  AMAZING  PERIPHERAL 

YOU'LL  BE  BLOWN  AWAY  111 

AVAILABLE  FOR  ALL  THE  ATARI  COMPUTERS.  COMMODORE  64.  VIC  20,  AND  OTHERS. 

BROOKTRONIX 

405  MAIN  STREET   LAUREL,  MD.     207O7  SPEECH  PACKAGE  $89.95 

(301  (  792-2330,  (301)  953-7373  1  -8«)-752-S34a  THOUGHT  PACKAGE  $  1 1 9.95 


-^  SURGES! 

..^^  Power        = 

I     lODIdllwr    BROWNOUTS! 

AEGIS®  .  .  .  Power  Conditioning  Equipment  ...  THE  SOLUTION 
Protects  From  Damaging  Voltage  Surges.  Lost  Data,  &  Cosily  Down  Time 

SPIKE-SPIKER'^ 

Transient  Voltage  Suppressors  &  Noise  Filters 
Eleven  Models  —  All  Uodals  Rated  1Z0V,  ISA 

Deliine  Power  Caiisale-2'Stage  transient  absorber:  dual 
5-stage  filter;  common  &  flilterential  mode  protection; 

nano  seconds  response;  clamping  at  150V;  8  individually  switclied  socl<ets; 

fused:  main  switcfi;  T  cord  and  status  lite.  S89.95. 

Quad  Power  CDnsi>le-6-stage  transient  absorber;  dual 
5-s!a9e  lilter:  common  &  differentiai  mode  protection:  pico 
second  response;  clamping  at  131V:  four  outlets;  fused, 
master  switcli;  7'  cord  and  slalys  ligfit.  $TS.95 

Mini  \\-Direcl  AC  Plug-In:  2-stage  transient  absorber:  dual 
3-5tage  filter;  common  &  ditferenlial  mode  prolection;  nano 
second  response:  clamping  at  150V;  two  outlets  and  status 
lite.  S44.95 

LINE-SAVERTi' 
Standby  Uninterruptible  Power  System 
—Clean  Reliable  Power  System— 
Model  LS-ZJ 0-240  watts-VfA  capacity,  increased  b3Ck- 
up  time;  11  min.  lull  load.  27  min.  '/i  load.  43  min. 
'h  load.  4-AC  outlets,  3-staged  transient  protection:  dual  4-staged  RFI/EMI  filler; 
sealed  recliargeable  internal  battery:  master  control  switcli:  test  switcti;  exter- 
nal fuses;  detachable  6'  cord:  external  DC  connectors  for  mobil  use  and  ex- 
tended hold-up  time:  many  more  exclusive  features.  S4B5.00 

Call  or  write  far  free  literature. 
Dealer  inquires  invited. 


Q..-- 


INSTANT  ORDER  LINE 

800-524-0400    TWX  501-651-2101 


6584  Ructi  Rd.,  Dept.CP    ■■ 
Bettilehem,  PA  18107      H 


IN  PENNA.  215-837-0700 

PA  Res.  iM  6'A  sales  ia>:  lor  COO  add  $3.00  + 
shipping  S  handling.  Ail  pre-paid  SPIKE-SPIKER 
orders.  Ireigh!  allowed.  All  LINE-SAVES  orders  add 
S10.00  shipping  &  handling. 


STOP  PLAYING  GAM 


■  Calculate  odds  on  HORSE  RACES  witli  ANY  COMPUTER 
using  BASIt:. 

■  SCIENTIFICALLV  DERIVED  SYSTEM  really  works  TV 
Station  WLKV  ol  Louisville.  Kenlucky  used  lliis  syslem 
to  predict  llie  odds  of  the  1980  Kenlucky  Derby  See 
Popular  Cornpulmg  (Fetiruary.  19841  lor  a  review  of  Itlis 
program.  This  system  was  written  and  used  by 
computer  experts  and  is  now  being  made  available  to  home  computer  owners  Ihis  method 
IS  based  on  storing  data  from  a  large  number  ol  races  on  a  high  speed,  large  scale  computer 
23  factors  taken  from  the  "Daily  Racing  Form"  were  then  analyzed  by  the  computer  to 
see  flow  they  inlluenced  race  resuits  From  these  23  facts,  ten  were  lound  to  be  the  most 
vital  in  determining  winners'NUI^EHICAL  PROBABILITIES  ol  each  ol  these  10  factors  were 
then  computed  and  this  lorms  the  basis  ol  this  REVOLUTIONARY  NEW  PROGRAM 

■  SIMPLE  TO  USE  Obtain  "Oaily  Racing  Form"  the  day  helore  ihe  races  and  answer  the 
10  questions  about  each  horse  Run  the  program  and  your  computer  will  prini  oui  the 
odds  tor  all  horses  in  each  race  COMPUTER  POWER  gives  you  the  advantage! 

■  YOU  GET: 

\)  Program  on  cassette  or  disk 

2)  listing  ol  BASIC  programs  lor  use  with  any  computer. 

3)  Instructions  on  how  lo  get  the  needed  data  Irom  Ihe  "Daily  Bacing  Form." 

4)  Tips  on  using  Ii>e  rxlds  generaled  by  the  program. 

5)  Sample  form  to  simplify  entering  data  lor  each  race 

MA(L  COUPON  OB  C>>iLLT004y 

3G  COMPANY,  INC.  DEPT.  CO  {503)  357-5607 

RT.  3,  BOX  28A,  GASTON,  OR  97119 

Yes.  I  want  to  use  my  computer  lor  FUN  and  PROFIT.  Please  send  me  "Play  ttie 
Horses"  for  $29.95.  Circle  the  cassette  you  need:  PeT/CBM,  viC-20.  Color  Computer, 
rns-ao.  Sinclair  Timex  1000.  iliri  Commooore  M  Idisk  a:  cassetlsl, 
Apple  I  disk  of  casseliei  T??r 

Enclosed  is:  D  Check  or  money  order  D  Masterf^rd  D  Visa         ^^ 


Exp.  date 


NAME 


ADDRESS  _ 
CITY 


START  USING  YOUR  COMPUTER  FOR 

FUN  and  PROFIT! 
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INSIGHT:  Atari 


Bill  Wilkinson 


This  month  we'll  conclude  our  exploration  of  the 
source  code  of  the  program  to  load  a  binary  file 
starting  with  the  GET  routine  presented  last  month. 

Lines  600-619.  GET  is  a  special  routine  for  two 
reasons.  First,  it  assumes  a  buffer  length  of  zero, 
thus  forcing  a  single  byte  transfer  into  the  A  reg- 
ister (Atari  I/O  spec).  Second,  if  the  GET  fails,  it 
pops  a  level  off  the  subroutine  stack  and  goes  di- 
rectly to  the  end-of-file  code  at  line  4000  (BA- 
SIC'S line  400),  This  is  a  crude  but  effective 
simulation  of  the  TRAP  400  code  in  the  BASIC 
version. 

For  GET  to  be  a  general-purpose  subroutine, 
it  would  have  to  simply  return  the  status  and  let 
the  caller  do  the  error  trapping. 

The  Main  Section 

This  routine  begins  the  real  work.  All  object  code 
is  reasonably  close  to  its  BASIC  parallel. 

Lines  1200-1204,  1300-1304.  Remember  the 
calling  requirements  for  the  I/O  routines?  Chan- 
nel in  X,  address  in  A  and  Y.  Looks  easy  once 
you  have  built  the  subroutines. 

Lines  1400-1407.  Same  as  above.  The  only  extra 
here  is  the  need  to  specify  a  mode  for  OPEN. 
Here,  we  use  mode  4  (just  as  in  BASIC)  to  in- 
dicate we  will  only  read  the  file. 

Lines  2400-2405.  Since  we  just  stored  the  A  reg- 
ister in  HIGH,  we  test  HIGH  first  by  comparing 
A  with  255.  If  HIGH  is  equal  to  255,  then  A  con- 
tains 255  and  we  can  compare  it  to  LOW.  A  tiny 
bit  sneaky.  Did  you  ever  realize  that  BASIC  has 
to  implement  THEN  this  way?  By  branching 
around  the  following  code? 

Lines  2600-2701.  We  used  LOW  and  HIGH  to 
get  the  START  address,  but  we  have  already 
moved  their  contents  to  START.  Now,  they 


won't  be  used  again  until  we  are  through  with 
QUIT,  so  why  not  share  memory  between  QUIT, 
LOW,  and  HIGH?  Again,  a  little  bit  sneaky,  but 
not  inordinately  so. 

We  could  have  saved  more  memory  (and 
code)  by  doing  GETs  into  the  low  and  high  bytes 
of  START  directly,  but  I  wanted  to  keep  the  code 
as  close  as  reasonable  to  the  original  BASIC. 

Lines  3100-3106.  See  the  comments  above  about 
START  and  ADDR. 

The  FOR  Loop 

Lines  3300-3302.  Remember,  if  a  zero  page  loca- 
tion points  to  a  desired  memory  location,  use  an 
offset  of  zero  in  the  Y  register  to  store,  load,  add, 
etc.,  to  or  from  that  location. 

Lines  3403-3408.  Since  we  are  STEPping  by  one, 
we  need  check  only  for  equality. 

Lines  3411-3417.  If  the  FOR  loop  had  used  a 
STEP,  we  would  have  had  to  add  it  on  here. 
Since  the  step  is  implied  to  be  one,  we  can  use 
this  simple  two-byte  increment. 

Line  4103.  If  this  routine  is  called  from  DOS  or 
from  BASIC,  the  RTS  is  all  that  is  needed,  thanks 
to  the  POP  in  the  GET  routine. 

As  I  said,  one  could  write  this  routine  in  bet- 
ter ways.  The  most-  obvious  thought  that  comes 
to  mind  is  to  replace  the  FOR  loop  with  a  block 
get  of  the  requisite  bytes.  Since  that  would  pro- 
duce significantly  faster  runtime  (for  large  files, 
at  least),  we  will  make  these  changes  next 
month. 

To  do  so,  though,  we  will  also  change  the 
BASIC  program  to  enable  it  to  make  a  call  to  do 
block  I/O.  So,  even  if  you  are  not  into  machine 
language,  watch  next  month  for  a  method  of  doing 
fast  memory  reads  and  writes  to  and  from  disk. 


Load  A  Binary  Object  File — Program  Completed 

0660  0990  BEGINWORK 

0991  r 
1000 
.1001 
1100 
1101 
1200 


BASIC:  REM  binary  object  file  loader 

just  a  comment  

BASIC:  DIM  NAME$(30) 

(the  NAME  buffer  is  defined  above) 
BASIC:  PRINT  "WHAT  FILE  TO  LOAD  "; 
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A  ATARI 


ATAflhs  a  Uademark  o(  ATARI ,  INC 

ATARI  800XL. Call 
Atari  1050 

Disk  Drive Call 

Atari  1010 

Recorder 77.00 

Atari  1027  Printer. Caii 

Atari  850 

interface Call 


MOSAIC 

eiKRamMOO 149.00 

64K  Ram  -I-  Cable  Kit 

400/aOO 169.00 

4aK  Ram  Kit 94.00 

16/32  Expander! 64.95 

32K  Ram 77.95 

Mosaic  Adaptor  ....  49.95 


Replacement  Keyboard  for  Atari  400  ,54.95 
3rd  Party  Printer  Interfaces 

Interfast  I 139.00 

Apeface  w/cable  included 69.95 

PRINTERS 

Axiom  AT-100 229.00     Gemini  10X Call 

Axiom  AT-550 329.00     Alphacom Call 

Epson Call     Okidata  92A Call 

Call  for  assorted  Printer  Packages 


DISK  DRIVES 

Rana  1000 „  , 

Irak Call 

Concorde _  T°' 

Indus  GT Prrces 

TOUCH  TABLETS 
Koala  Touch  Tablet  ■  D  . . .  69.95 
Koala  Touch  Tablet-Cart  74.95 
RS232  Modam  Adaptor 
(Through  serial  port) ... .  33.95 

MONITORS 

USI Call 

AMDEK Call 

STIWUTECH  SUBLIMINAL 
SOFTWARE  FOR  ATARI 
AND  CBM  64 
Expando-Vislon  Interface 
w/one  FREE  Cart...  99.00 
Weight  Control 
Study  Habits 
Stress  Control 
Drinking  Control 
Smoking  Control 
Career  Success 
SeKual  Cantidence 

Addit'l  Rom  Carts  29.95  ea. 


ATARI 


SOFTWARE 


ATARI 

Conversational  Lana^T  . .  44,95 

My  First  Alphabet -D 26.95 

Home  Filing  Mgr.-D 37.95 

Star  Raiders. Cart 32,95 

Assembly  Editor-Cart . . .  46.95 

Macroassembier-D 67.95 

Invitation  to  Program  I  -T .  19.95 

BasKetbaii-Cart 26.95 

Graph-it -T 15.95 

Dig  Dug-Cart 32.95 

Alariwriter-Cart 74.95 

Donkey  Kong-Cart 37.95 

Ms.  Pac-Man-Cart 39.95 

Eastern  Front-Cart 32.95 

Donkey  Kong  Jr.-Cart . . .  39.95 

Pengo-Cart,. 35.95 

Logo-Cart 79.95 

Robilron.Cart 35,95 

Pole  Position  -Cart 39.95 

Microsott  Basic  ll-Cart  . .  67.95 

Paint-0 33-95 

Caverns  of  Mars-Cart . . .  32.95 

Joust-Cart 39.95 

Jungle  Hunt  -  Cart 35.95 

Mario  Bros. -Cart 35.95 

Syncalc-0 74.95 

Atari  Music -D 29.95 

SIERRA  ON-LINE 

Homeword-D 49.95 

DarkCrystal-D 27.95 

Ffogger-D/T'. 23.95 

OuBSt  For  Tires-D 23.95 

Ultima  1-0 23.95 

Ultima  ll-D 41.95 

Wizard/Prlncess-0 22.95 

INFOCOM 

Deadline-D 34.95 

Witness-D 34,95 

Zorkl,  II,  lll-D 27,95 

Starcross.D 27.95 

Planetlall-D 34.95 

Suspended -D 34.95 

Enchanter-  D 34.95 


lnlidel-0  . 
Sorcerer- D  , 


.  34.95 
.  34,95 


BRODERBUND 

Arcade  Machlne-D 41.95 

BankSt.  Wrlter-D 49.95 

Lode  Runner-  D 23,95 

Drol-D 23.95 

Spare  Change- D 23.95 

Choplifter-D 23.95 

MasKof  theSun-D 27.95 

Operation  Whirlwind-D.  .27.95 

EPYX 

Gateway  To  Apshal. Cart  27.95 

Pilslop-Cart 27.95 

Fun  With  Music-Can..., 27.95 

Jumpman  Jr.-Cart 27.95 

Dragon  riders  of  Pern-D/T  27.95 
Temple  ol  Apshai-D/T  - .  27,95 
Hellfire  Wanior-D/T  ....  20.95 

Fun  With  Afi-Cart 27.95 

Summer  Games-D 27.95 

Puizlemania-D 23.95 

SSI 

Carrier  Force  .D 41.95 

Combat  Leader-D(T 27.95 

Cosmic  Balance-D 27,95 

Cosmic  Balance  II'D., .  .27.95 

Fortress-D 23.95 

Rails  West-D 27,95 

Broadsidss-D 27.95 

War  In  Russia-D 54.95 

Queslron-D 34.95 

SPINNAKER 

Up  For  Grabs  -Cart 27.95 

Cosmic  Life-Cart 23.95 

Facemaiter-Cart, 23.95 

Alphabet  Zoo-Cart 23.95 

Fraction  Fever-Gart 23.95 

Kids  on  Keys-Cart 23.95 

Delta  Drawing-Cart 27.95 

Story  Machine -Cart 27.95 

Amaz  ing  Th  ings  -  D 27.95 

Hey  Diddle  Diddle-0....  20,95 
Snooper  Troops  1  or  2-  D .  30.95 

Trains-D 27.95 

Aerobics- D 30.95 

Adventure  Creature. D  .  .  .27.95 


PARKER  BROS. 

Astrochase-Cart 34.95 

Frogger-Carl 34.95 

Q-Bert-Cart 34,95 

Popeya-Cart 34.95 

MISCELLANEOUS 
FOR  ATARI 

Castle-Wolfenstein-0, .  .20.95 
Home  Accountant- D  ....  52.95 

Master  Type-DICart 27.95 

SpelunKer-D 27.95 

Flight  Simulator  ll-D 37.95 

ZomblBS-D/T 23.95 

Mr.  Robot-D 23.95 

River  Raid -Cart 31.95 

Diskey-D 34.95 

Ultima  Ill-D 41.95 

Miner  2049'er-Cart 34.95 

Scraper  Caper-Cart 34.95 

Basic  XL-Cart 74.95 

Monkey  Wrencti  ll.Cart . .  49.95 

Omnimon 82.95 

Starbowl  Foolbail-D/T  . .  22.95 

Hookey-Cart 27.95 

FllpFlop-D/T 20-95 

Boulder  Dash-D/T 20.95 

Encounter-OrT 23.95 

Quasimoto-D/T 23.95 

N.Y.C.-D/T 23.95 

Compute  Books Call 

Pitfall-Cart 31.95 

Codewriter-D 69.95 

The  Heist-D 27.95 

Mac65XL-Cart 74,95 

Jupiter  Mission-D 34,95 

NIbbler-D 20.95 

AirSupport-D/T 23.95 

Pogo  Joe-D/T 20.95 

Analog  Compendium 

-Book 9.95 

Movie  Makef-D 41.95 

Antica  4.D 34.95 

Hundreds  ol  Hams  available 
for  the  Atari  and  CBM  64  .  ,  . 
please  call. 


LJK 

Latter  Perfect -D 74.95 

Data  Perfect-D 74.95 

Spell  Pertect-D 64.95 

D-Dlsk  T- Cassette 

Cart  ■  Cartridge 


COMMODORE64' 

CBM  64 Call 

1541  Disk  Drive 239.00 

1526  80  Coluinn  Printer 279.00 

1530  Dalasette 66.00 

1702  Color  Monitor 249.00 

1650  AD/AA  Modem 89.00 

RS  232  Interface 44.00 

COMMODORE  64  SOFTWARE 


Program  Ref.  Guide  19.95 

Assemblsr-D 17.95 

Easy  Finance 

1,11,11,  IV-D 19.95 

Easy  Calc-D 64.95 

Easy  Mail-D 17.95 

EasyScripl-0 39.95 

EasySpBll-D 19,95 

Logo-D 49.95 


The  Manager-  D 37.95 

Gerieral  Ledger-D  . .  37.95 

AcctS.  Rec.-D 37.95 

Accts.  Pay.-D 37,95 

Magic  Desk-D 52.95 

Zorkl,  II  or  lll-D 29.95 

Suspended-D 29,95 

StarcroSS-D 29,95 

Deadline-D 29.95 


COMMODORE  64  SOFTWARE 


ACCESS 

Neutral  Zone-D/T 23.95 

Spritemaster-D/T 27.95 

Beachhead-D/T 23-95 

Music  Composer. 0  ....  27.95 

HES 

Mulllplan-D 69.95 

64Forth-Cart 41.95 

HES  Writer-Cart,.,..,.  32.96 

HESMon-Cart 27.95 

Turtle  Graphics-Cart  , . .  41.95 

Mutant  Camels 20.95 

HES  Modem 59.95 

Super  Zaxxon Call 

SYNAPSE 

BlueMax-DIT 23.95 

Zaxxon-D/T 27.95 

Morgui-D/T 23.95 

Shamus  II-D;T 23.95 

Sentinal-DfT 23.96 

Pharoah's  Curse-D/T  . ,  23.95 

Siamball-D/T 23.95 

Zepplin-D/T 23.95 

CARDCO 

Cardprint/A 59.96 

Cardprint/B 37.95 

Cardco  -^G 64.95 

Cardboard/S 54.95 

Cardkey 29.95 

Cardetle/I 29.95 

Cardwriterd 29.95 

Cassette  Recorder 47.95 

Printer  Utility. D/T 19.95 

Write  Now-fiart 34.95 

MallNow-D 27.95 

HANDfC 

64Forth-Cart 29.95 

64  Graf. Cart 23.95 

Stat  64-Cart 23.96 

Calc  Result  Easy-Cart.  .34.95 
Calc  Result  Advanced. D74.95 

The  Diary-Cart .23.95 

The  Tool-Cart 29.95 

CBS  SOFTWARE 

Call  for  items  and  prices. 


For  Technical  Into,  Order 
Inquiries,  or  tor  Wise.  Orders  ' 


To  Order  Call  Toll  Free 

800-558-0003      414-351 -2007 


SPINNAKER 

Trains-D 27.95 

KIdwriter-D 23,95 

Alt  InThe  Caves-Cart  . .  27.95 
Jukebox-Cart 23,95 

CYMBAL 

Accounts  Payable-D  , . .  52.95 
Accounts  Receivable-D  52.95 
InventoryControl-D....  52.95 
Invoice  Writer.D 52.95 

MISCELLANEOUS 
FOR  CBM  64 

Flight  Simulator  ll-D  . . .  37.95 
Night  Mission/ 

Pinball-D 20.95 

Praticalc  PS-D 59.95 

M.FllB-D 64.95 

Word  Pro  3 -f /Spell -D..  74.95 
Home  Accountant-D  . . .  52.95 

StepByStep-D/T 44.95 

Barron's  Sat.-D 59.95 

Money  Manager.D/T. .  .19.95 

Bristles-D/T 20,95 

Telestar  64-Cart 37.95 

Star  League 

Baseball -D/T 20.95 

Castle  Wolfenstein-O  . ,  20,95 

Sorcerer-O 34.95 

Computer  Baseball-D  . .  27.95 

Ringside  Seat-D 27.95 

Professional  Golf-D 27.95 

Mastertype-Cart 27.95 

SoloFlight-D 23.95 

Vic  Switch 124.95 

Paper  Cllp-D 64.95 

Delphi's  (Jracle-D 74.95 

Super  Buscard  II .Call 

Instaspeed-D/T 99.95 

Codev<riter-D 69,95 

Cyberia  Farm  Mgr.-D . . .  37.95 

First  Class  Mail-D 34.95 

Azteo-D 27,95 

Popeye-Cart 34.95 

Ultima  lll-D 41.95 

Ultima  ll-D 41.95 

Miner  2049er-Cart 27,95 

ACCESSORIES 

WICO  Joystick Call 

Flip  'n'  File  Trunks 20.95 

Fiip'n'  File  Cart 20.95 

Joysensor 24.95 

Elephant  Disks 

(Box  of  101 20DO 

WICOTrakball 37.95 

KRAFT  Joystick 15.95 


ORDERING  INFORMATION.  For  fast  delivery  Send  cashier's  check,  money  order  or  direct  bank  transfers.  Personal  and  company  cisecks 
allow  2  weeks  to  clear.  Charges  for  COD  are  S3.00.  School  Purchase  Orders  welcome.  In  CONTINENTAL  USA,  Include  S3.00  shipping  per 
software  order.  Include  3%  shipping  on  all  Hardware  orders,  minimum  S3.(X).  Mastercard  i  Visa  please  include  card  *  and  expiration 
date.  Wl  residents  please  add  5%  sales  tax.  HI,  AK,  FPO,  APO,  Canadian  orders  — add  5%  shipping,  minimum  $5.00.  All  other  foreign 
orders,  please  add  ISVo  shipping,  minimum  S10.00.  All  goods  are  new  and  include  factory  warranty.  Due  to  our  low  prices,  all  sales  are 
final.  All  defective  returns  must  have  a  return  autharization  numtjer.  Please  call  414-351  -2007  to  obtain  an  RAff  or  your  return  will  NOT 
be  accepted  for  replacement  or  repair.  Prices  and  availability  are  subject  to  change  without  notice. 


COMPUTABILITY 

P.O.  Bm  17882 
Milwaukee,  Wl  53217 

ORDER  LINES  OPEN 
Mon-Fri        11  i^M  -  7  Pl^  CST 
Sat  12PM-5PfJCST 


0660  A200 
0662  A906 
0664  A003 
0666  202406 

0669  A200 
066B  A905 
066D  A080 
066F  202906 

0672  A210 
0674  A904 
0676  9D4A03 

0679  A905 
067B  A080 
067D  201A06 

0680  30DE 


0682 


0682  A210 
0684  204606 
0687  8D1806 
068A  A210 
068C  204606 
068F  8D1906 


0692 

0694 
0696 
0699 
069B 
06  9D 
06A0 
06A3 
06A5 


C9FF 

D015 

CD1806 

D010 

A210 

204606 

8D1806 

A210 

204606 


06A8  8D1906 
06AB 


06AB  AD1806 
06AE  85CE 
06B0  AD1906 
06B3  B5CF 

06B5  A210 
06B7  204606 
06BA  8D1806 
06BD  A210 
06BF  204606 
06C2  8D1906 


1201 
1202 
1203 
1204 
1300 
1301 
1302 
1303 
1304 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
2000 
2001 
2002 
2003 
2004 
2100 
2101 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2300 
2301 
2302 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2411 

2412 
2413 
2414 
2499 
2500 
2501 
2502 
2503 
2504 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2700 
2701 
3000 
3001 


LDX 
LDA 
LDY 

JSR 

BASIC 

LDX 

LDA 

LDY 

JSR 

BASIC 

LDX 

LDA 

STA 

LDA 

LDY 

JSR 

BMl 

BASIC: 

C  just 

LINE200 


#0*16    ;  channel  0  is  screen 
#MESSAGE/2  56 

#MESSAGE&255  ;  address  of  message  to  A,Y 
PRINT    ;  do  the  actual  work 

INPUT  NAME$ 
#0*16    ;  channel  0  is  screen 
*NAME/256 

#NAMESc255  ;  address  of  name  to  A,Y 
INPUT    ;  do  the  actual  work 

OPEN  # 1,4,0, NAME $ 
#1*16    ; 
#4 

ICAUX1,X  ; 
#NAME/2  56 
#NAME&255  ;  address  of  name 
OPEN     ;  again,  do  the  actual  work 
BEGINWORK  ;  if  bad  file  or  name,  ask  again 

REM  get  and  check  header 

a  comment) 


channel  1 

r  mode  for  open 


BASIC:  TRAP  400 

implemented  in  code  below 
BASIC:  GET  #1,L0W  :  GET  # I, HIGH 


#1*16 

GET 

LOW 

#1*16 

GET 

HIGH 
TRAP  40000 
really,  just  turns 
again,  implemented 


LDX 
JSR 
STA 
LDX 
JSR 
STA 
BASIC 


channel  1 
get  a  byte 


to  A  reg 


channel  1 

get  a  byte  to  A 


BASIC:  IF 


LOW=2  55  AND 
GET  #1,L0W 


trap  off 
in  code  below 
HIGH=255 
GET  #1,HIGH 


CMP 
BNE 
CMP 
BNE 
LDX 
JSR 
STA 
LDX 
JSR 


#255 

EOL240 

LOW 

EOL240 

#1*16 

GET 

LOW 

#1*16 

GET 


HIGH  is  not  255 

LOW  is  not  255 
LOW=255  and  HIGH=255, 
get  a  byte  to  A  reg 


so. 


channel  1 
get  a  byte 


to  A 


STA 
EOL240 
;  (the  BNE 

.PAGE 
;  BASIC 

LDA 

STA 

LDA 

STA 
;  BASIC 

LDX 

JSR 

STA 

LDX 

JSR 

STA 
BASIC 


HIGH 


s  get  here  to  skip  the  THEN  statements) 
BASIC  lines  250-410" 

START=LOW+256*HIGH 
LOW 

START    ;  move  LOW  byte 
HIGH 
START+1  ;  same  as  256*HIGH 

GET  #1,L0W  :  GET  #1,HIGH 
#1*16    ;  channel  1 
GET      r  get  a  byte  to  A  reg 
LOW      ;  LOW  byte  of  QUIT 
#1*16    ;  channel  1 
GET      ;  get  a  byte  to  A 
HIGH     ;  HIGH  byte  of  QUIT 

QUIT  =  LOW+256*HIGH 


already  done  by  2601  thru  2606, 
BASIC:  REM  read  in  a  segment 
(just  a  comment) 


see    text 
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06C5 


06C5    A210 
06C7    204606 


06CA   A000 
06CC    91CE 


06CE 

A5CE 

06D0 

CD1806 

06D3 

D007 

06D5 

A5CF 

06D7 

CD1906 

06DA 

F008 

06DC 

06DC 

E6CE 

06DE 

D0E5 

06E0 

E6CF 

06E2 

D0E1 

06E4 

06E4 

4C8206 

06E7 

06E7    A210 
06E9    201F06 
06EC    60 


3100 

3101 

3102 

3103 

3104 

3105 

3106 

3200 

3201 

3202 

3203 

3300 

3301 

3302 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3500 

3501 

4000 

4001 

4002 

4100 

4101 

4102 

4103 

4104 

;  BASIC:     FOR    ADDR-START    TO    QUIT 

;  a    small    sneaXy   here: 

;  START    and   ADDR   are    same 

;  location    in    ass'y    language    version 

FORADDRLOOP 

;    BASIC:    GET    #1,BYTE 

LDX    #1*16         ;    channel    1 

JSR   GET  ;    get    a   byte    to   A-reg 

;  notice    that   we    do   not    actually    store    it 

yet 
;    BASIC;    POKE    ADDR, BYTE 

LDY    #0  ;    needed    for    indirect    addressing 

STA    Caddr),Y    ;    an    effective   poke 
BASIC:     NEXT    ADDR 

Strangely,    this    simple   BASIC    statement 

causes    a    lot   of   work    in    ass'y    language 

LDA    ADDR 

CMP    QUIT  ;    at    end    of    loop   yet? 

BNE    DONEXT       r    no 

LDA    ADDR+1 

CMP    QUIT+1       ;    try   high   bytes    also 

BEQ   ENDOFFOR    ;    aha!    not   yet 
DONEXT 

INC   ADDR  ;    change    low  byte   of   addr 

BNE    FORADDRLOOP 

INC   ADDR+1       r    and   high    byte    if    needed 

BNE    FORADDRLOOP 

ENDOFFOR 

;    BASIC:    GOTO    200    :    REM    try    another    segment 

JMP    LINE200 
;    BASIC:    REM    trapped    to   here,    assume    end    of    file 
;       (just    a   comment) 
L1NE400 
;    BASIC:    CLOSE    #1 

LDX    #1*16         ;    channel    1 

JSR  CLOSE         r    do    the   work 

RTS  ?    no  parallel    in   BASIC, 

;    we   have   to   RTS    to   operating    system 


\ferbatim 

flexible  disks 

Call  Free  (800)  235-4137  for 

prices  and  information.  Dealer 

inquiries  invited.  C.O.D.  and 

charge  cards  accepted. 

PACIFIC 
EXCHANGES 

100  Foothill  Blvd. 
San  LuisObispo.  CA 
93401,  InCal-  call 
(800)  592-5935  or 
(805)  543-1037 


■f 


Copy  Atari  AW/9P0/XI  Sene*  Ciirtrtdge*  to  Ditk 
and  run  them  from  a  Menu 


ATARI  CARTRIDGE-TO-DISK  COPY  SYSTEM  $69.95 

Suparcact  lets  yan  cODY  A/^V zartrdgt  tot  the  Atari  400/GOO/XL  Sariea  to  diskalta.  and  Ih«m,aflflr  r^n  it 
tmrr  youi  disk  diiva.  tnjov  -x^  canvBriance  of  selecting  youi  tai/orile  gjines  from  a  "rr.enu  sciesn" 
talh«r  tlvin  awappinq  cartridges  in  and  out  of  voui  compuleru  Each  caflridga  copied  by  Superca^  func- 
Inrta  ex3ctfY  I'iie  Ifte  onghaf.  Sup«rcart  indudss: 
•  DISKETTE  wilh: 

COPY  PROGRAM  -  Copies  the  cartndge  to  a  dbkene  (up  10  9  Cdrtndges  will  fn  on  one  diskj 
MENU  PROGRAM  -  AulomS'ticalV  runs  and  displays  a  msnu  prompting  usej-  for  a  ONE 
kevjirolce  ^(ecTiOn  of  any  canridao  or  iSe  dak. 
-  CAftTRiDGE! 

Tricks"  the  computer  into  thinking  that  the  original  "cocrv  prDtecie<J"  cannd^e  has  been 
in»*n»d 
To  date  there  h>V4  bAtn  ftn  proCilerm  duplicating  and  running  ph  of  thv  protecied  canridgu  that  we 
know  of.  Hovvever.  FR0P4TRUNNER  Cdrrnct  guarantee  The  operation  of  ail  futyrg  csrtrtdgu.  Supercan  ii 
uier-lriendly  flrKJ  iJmpte  id  uh  and  requiru  no  modrf  icatioris  of  your  hertlwDre.  PIRATES  TAKE  NOTE; 
SLfPEflCART  if  npt  intended  tor  Kl«gel  cop^irig  and.'or  distribulion  of  CDpyrighted  software.  .  .SorrYlll 
$V$TEM  REaumEMEMT&; 
Atari  400/BOO  or  XL  Series  Compuief  i  48K  Memofv  /  One  Disk  Drtva 
Auailabre  at  youf  compuief  stor^  or  direct ffom  FrOIVTRUNNER.     DEALER  INQUIRIES  ENCDUfiAGED 
TOLL  FREE  ORDER  UNE:  124  Hrs.l  1-80ft*tt-47»/Jn  Navada  or  tor  questions  Call:  f7021  7M-4en) 
Pqr5ori3l  chocks  al!Qw2-3  weeks  to  clear,  M/C  and  VJSA  accaptatf. 

Include  63  &0  l$7.M  Foreign  orders)  for  shipping. 
FRONTRUNNER  COMPUTER  INDUSTRIES 
316  Calitornia  Ave..  Suite  rl^2.  Reno.  Nevada  BSSW  •  (702t  7B6-46Q0 

Others  Make  Cletms.  .  .SUPERCART  rtMJtw  copfgalU 
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64  EXPLORER 


Lorry  Isoocs 


A  complete  drawing  package  should  allow  the 
user  to  print  characters  on  the  bitmapped  dis- 
play. This  month  and  next  1  will  discuss  this 
topic,  and  give  more  examples  on  the  use  of  the 
drawing  routines  presented  last  month. 

There  are  two  methods  for  printing  charac- 
ters on  a  bitmapped  display.  We  can  POKE  the 
dot  patterns  of  the  characters  to  the  bitmapped 
RAM,  or  we  can  draw  the  characters  onto  the 
display. 

Let's  take  a  look  at  the  first  method,  which 
is  faster  because  no  line-drawing  routines  are 
required. 

POKEing  To  The  Bitmap 

The  first  step  in  POKEing  characters  to  a 
bitmapped  display  is  to  choose  the  cell  size,  or 
dimensions,  of  our  character  set.  The  choice  of 
the  cell  size  can  greatly  affect  the  complexity  of 
the  routines  which  print  the  characters.  If  a 
convenient  size  is  chosen,  the  routines  will  be 
simplified;  if  you  are  up  for  a  challenge,  you  can 
write  the  routines  to  accept  a  variable  cell  size. 

We  will  use  a  cell  size  of  8  dots  high  by  8 
dots  wide,  for  two  reasons.  First,  a  width  of  8 
dots  is  the  number  of  dots  which  can  be  held  in 
a  byte.  Second,  there  already  exists  a  set  of  8  x  8 
characters  in  the  64's  character  ROM. 

Actually,  the  64's  normal  character  display 
mode  is  very  similar  to  what  we  want  to  accom- 
plish in  a  bitmapped  mode.  The  process  involves 
character  cells  and  some  method  of  transferring 
the  character  dot  patterns  to  the  display.  How- 
ever, in  the  normal  character  display  mode,  the 
format  is  determined  by  the  character  codes 
found  in  a  character  array  called  screen  memory. 
In  screen  memory,  you  can  change  only  whole  8 
X  8  characters,  so  your  effective  resolution  winds 
up  being  40  columns  by  25  lines, 

Blending  Characters  And  The 
Bitmap 

When  using  a  bitmap  display,  you  can  control 
each  dot.  This  implies  that  you  can  place  a 
character  at  any  X,Y  position  on  the  screen.  This 
can  certainly  be  done,  though  it  is  more  difficult 
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than  placing  a  character  code  in  screen  memory. 
What  complicates  the  task  somewhat  is  that  the 
64's  VIC-II  chip  organizes  a  bitmap  display  as 
groups  of  8  X  8  dot  cells. 

It's  possible  for  the  8x8  dot  character  pat- 
tern to  span  as  many  as  four  of  the  bitmap  cells, 
two  horizontally  and  two  vertically.  This  doesn't 
create  much  of  a  problem  vertically,  but  hori- 
zontally the  bytes  in  the  character  dot  pattern 
may  have  to  be  moved  or  shifted  to  span  two 
bytes.  In  addition,  when  the  bytes  are  added  to 
the  bitmap,  the  routine  must  not  disturb  the  dots 
outside  the  shifted  8  dots  of  the  character 
pattern. 

Next,  we  must  decide  how  to  transfer  the 
dot  patterns  so  they  will  be  visible  against  the 
bitmapped  background. 

Using  Conditional  Logic 

One  way  of  transferring  the  dot  pattern  is  to  add 
(logical  OR)  the  dots  in  the  pattern  to  the  dots  al- 
ready in  the  display.  Dots  which  are  on  in  the 
character  dot  pattern  are  also  turned  on  in  the 
display.  Dots  which  are  on  in  the  display  remain 
on.  This  avoids  erasing  the  background  as  a 
character  is  printed  to  the  bitmapped  display,  but 
can  result  in  illegible  characters  if  there  are  too 
many  dots  already  turned  on  in  the  background. 

Another  way  to  transfer  the  dot  pattern  is  to 
flip  (Exclusive-OR)  the  dots  in  the  pattern  into 
the  bitmapped  RAM,  Dots  in  the  bitmapped 
RAM  which  correspond  to  on  dots  in  the  dot  pat- 
tern are  flipped  to  the  opposite  state.  The  advan- 
tage of  this  technique  is  that  it  will  make 
characters  visible  regardless  of  whether  the  back- 
ground is  on  or  off.  However,  characters  can  still 
be  illegible  if  the  background  is  not  predomi- 
nantly either  on  or  off. 

Or  the  transfer  could  be  accomplished  by 
writing  the  pattern  directly  into  the  bitmapped 
RAM.  This  type  of  transfer  replaces  the  back- 
ground with  the  character  cell.  We  will  use  this 
technique. 

A  BASIC  Example 

Let's  first  demonstrate  how  the  required  routines 
might  be  implemented  in  BASIC.  Unfortunately, 


B  commodore 


SOFTVt:\REFORC-64 


ACCESSORIES 


Business 

Muttiplan ,  ..$  89.00 

WordPro  3  +  .64  w.SpellRight  Plus  . . .  S  79.00 

SpeilRight  Plus S  55.00 

Calc  Result  (Advanced) S  95.00 

Calc  Result  (Easy) S  45.00 

Mirage  Concepts  (data  Gase)  S  95.00 

Mirage  Concepts 

(40  &  80  dm  W/P  with  Dictionary)  . .  S  95.00 

Home  Accountant  (Continental)  ......  S  69.00 

Tax  Advantage  (Continental) S  49.00 

Southern  Solutions  Accounting 

G  L.  A'R,  AP,  P/R.  I/M each  S  69.95 

Utilities 

Super  Basic  64 S  35.Q0 

Super  Copy  54 S  35.00 

SketchPad64 S  75.00 

64  Forth S  45.00 

MTS  Terminal  Package 

(up  and  down  load)  S  35.00 

SimonsBasic S  19.95 

80  Column  Expander S  55.00 

Solo  Flight  (Simulator) S    34.95 

Oscar  by  Databar 

(Bar  Code  Reader)  S    79.95 

CBM  1541  Disk  Drive S  249.00 

Concord  Parallel  Disl(  Drive  S  345.00 

Concord  Slave  Drive    Call 

MSD  Super  Disk  (Single) S  395.00 

MSD  Super  Disk  (Dual) S  695.00 

Vic  1650  Automatic  Modem $109.95 

Hayes  Smart  300  Modem $  249.00 

Hayes  Smart  1200  Modem $  629.00 

Vic  1530  Datasette S   65.00 

CBM  1520  Pnnter  Plotter ,  S  179,95 

5  Slot  Expander  (64) S    65.00 

Printer  Utility  Program  (Cardco) S   19.95 

64  Relay  Cartridge S    45.00 

Numeric  Key  Pad  S    49.00 

Alien  Voice  Box  (Talks  &  Sings) S  11 9.00 

When  I'm  64  (Disk) S    35.00 

Texas  Instruments  LCD  Programmer, . .  S    55.95 
Verbatim  Diskettes: 

Single  Sided/Slngle  Densitsr    S    26.00 

Single  Sided/Double  Density  S   30.00 

Double  Sided/Double  Density  S   4Z.GD 

Vic  20: 

3-SlQt  Expander S    39.00 

6-Slot  Expander S   79.95 

16KMemory $    79.95 


CBM  4023  Ribbons S    12.00 

CBM  8023  Ribbons S   14.95 

FlipN'FilelO,  15. 25, 50 Call 

Power  Strips  w/surge  stopper Call 

Computer  Care  Kit S    19.95 


IVITIRFACES 


Interpod  (full  compatibility!!) 

(Intelligent  IEEE  &  RS232) Call 

The  Connection  (By  Tymac) 

(Commodore  Graphics  -  2K  Buffer)  S    95.00 

Cardco  ^  G  Parallel  Interlace S    79.00 

Vic  Switch S  149.95 

ADA  1800  (Parallel-8032  only) S  129.00 

ADA  1450  (Serial-8032  only) S  149.00 

Pet-to- IEEE  Cable S  39.00 

lEEE-to-IEEE  Cable S    49.00 

4  Prong  AV  Cable S   15.00 

Centronics  Cable  (male  to  male)  S   34.95 

RS232  Cable  (mate  to  male)  S    31.95 

Custom  Computer  Cables 

(we  make  to  your  specifications)  ....        Call 


!V10MH>RS 


CBM  1 702  Color  Monitor S  269.00 

Panasonic  CT-160  Color Call 

Panasonic  TR-120  (Green) Call 

Panasonic  TR- 120  (Amber) Call 

Panasonic  DT-1300  (RGB) S  395.00 

Monitor  Stand  (Tilt  &  Swivel) S  29.95 

RGB  Monitor  Cable: 

ETIOOC(Apple) S  33.80 

ET-101C(1BM) S  33.80 


LErrER  QliALITI'  PRINTERS 


Transtar  120  (80  column) S  535.00 

Transtar  130  (132  column) S  725.00 

CBM  6400  Printer SI  425.00 

NEC  Spinwriter Call 

Cardco  LQ  1  Printer  S  565.00 


nmMAIRiXE'RIVreRS 


CBM  MPS-801  Printer  (50cps)  S  245,00 

DEALERS  INQUIRIES  VHICOME 

Call  to  Order 

1-800-527-1738 

All  Ottiers  Call 

1-214-231-2645 

Micro-Sys 


0kidata82A S  412.50 

OkidataB3  S  635.00 

0kidata84P S1165.00 

Okidata92P S  519.00 

Okidata93P S  810.00 

Panasonic  KX-P1 090  Printer Call 

Panasonic  KX-P1091  Printer   Call 

Panasonic  KX-PI 092  Printer Cal  I 

Panasonic  KX-P1093  Printer   Call 

SlarGeminilOX S  295.00 

Star  Gemini  15 S  499.00 

StarGemini  Delta  10 Call 


COIVtMODORE  Bl'SINESS  MACHINES 


Executive  64  portable  mew) Call 

B128-30 128k  Bus.  Machine  (new)  . . .        Call 

SuperPet  (5  languages)  S1059.00 

CBM  8032 S  625.00 

CBti^  2031  single  disk S  295.00 

CBM  8050  Dual  Disk  1  meg S  995.00 

CBM  8250  Dual  Disk  2  meg S1295.00 

64K  Expansion  Board S  275.00 

SuperPet  Upgrade  Kit S  695.00 

WordPro  4-  or  5-  S  305.00 

CalcResult S  199.95 

Tfie  Manager S  199.00 

BPI  Accounting  System 

(5  separate  modules) S  325.00 

Southern  Solutions  Accounting 

System  111  (Per/Module) S  285.00 

McTemi  Communications  Package. . . .  S  175.00 

Superscript  II  Call 

Superbase  Call 

Superoffice Call 

Complete  Accounting  Systems Call 

Mailing  List  Manager Call 

Order  EntryPoint  of  Sale Call 

Calc  Result   Call 


BVSINESS  SOFPHARE  —  8t)52 


BISINESS  SOmiARE  —  B128-80 


Orders  under  50.00  add  10.00  Handlingfee 

MasterCard,  VISA,  Money  Order.  Bank  Check 

COD  (add  5.00) 

Add  3%  For  Credit  Cards 

All  Products  In  Stock  Shipped  Within  24  Hours 

RO.B.  Dallas,  Texas 

All  Products  Shipped  With  Manufacturers 

90  Day  Warranty 

PRICES  ARE  SUBJECTTO 

CIL\NGE  WrniOllT  NOTICE. 
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like  the  drawing  routines  presented  in  earlier 
columns,  the  character  routines  are  too  slow  to 
be  really  useful.  To  enhance  their  value  as  an  ex- 
ample, we'll  try  to  illustrate  modular  program- 
ming style  as  well. 

One  of  the  main  aspects  of  modular 
programming  is  breaking  main  or  primary  tasks 
into  smaller,  more  manageable  tasks.  Once  the 
tasks  have  been  broken  down  sufficiently,  each 
may  be  implemented  in  a  single  routine.  The 
more  independent  each  of  these  separate  routines 
is,  the  better.  This  allows  you  to  concentrate  on 
the  details  involved  with  the  routine  as  it  is 
written,  without  being  distracted  by  the  details 
nvolved  with  other  routines.  To  show  how  print- 
ng  to  the  bitmapped  display  might  be  broken 
nto  modules,  let's  take  a  look  at  the  logical  sub- 
divisions of  this  task. 

Although  this  program  isn't  really  complex 
enough  to  justify  a  modular  approach,  1  prefer  to 
keep  the  functions  or  tasks  in  separate  routines, 
so  long  as  the  routines  don't  become  embarrass- 
ingly simple.  This  helps  while  debugging,  since 
the  symptoms  of  the  bug  often  eliminate  a 
majority  of  the  routines  from  consideration.  It 
also  helps  keep  you  from  accidentally  tangling 
functions  together. 

When  functions  get  tangled  or  intertwined, 
making  one  change  may  require  making  other 
changes,  leading  to  a  snowball  effect.  And  fi- 
nally, it  is  good  practice  to  keep  functions 
divided  into  separate  routines  when  you  write  a 
complex  program.  How  well  the  tasks  are  di- 
vided up  can  greatly  affect  how  much  effort  it 
takes  to  write  and  debug  the  program. 


Breaking  Down  The  Task 

Putting  a  character  in  a  bitmapped  display  will 
involve  transferring  bytes  into  bitmapped  RAM, 
so  we  will  need  a  routine  which  does  the 
transferring.  We  need  another  routine  to  calculate 
the  character's  position.  We  also  need  to  know 
what  to  write;  this  will  require  two  routines.  We 
need  a  routine  which  will  find  and  read  the 
appropriate  bytes  in  the  character  ROM.  How- 
ever, the  dot  patterns  are  organized  based  on 
screen  codes,  which  are  different  from  the  Com- 
modore 64  ASCII  codes  you  normally  print.  This 
means  we  need  a  routine  to  convert  the  ASCII 
code  to  the  corresponding  screen  code. 

Finally,  we  need  a  routine  to  do  the  hori- 
zontal shifting  necessary  when  the  character  byte 
needs  to  span  two  bytes  in  the  bitmapped  RAM. 
This  gives  us  five  routines  to  be  implemented: 

1.  Convert  the  character  to  screen  code 

2.  Read  the  character's  dot  pattern 

3.  Calculate  its  position  in  the  bitmap  and 
amount  of  shift 
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4.  Shift  a  dot-pattern  byte 

5.  Put  the  dot-pattern  byte  in  the  bitmap 

By  dividing  the  tasks  into  well-defined  and 
independent  sections,  it  will  be  a  little  easier  to 
implement  them  than  if  you  tried  to  throw  it  all 
together  in  one  routine.  For  example,  converting 
the  ASCII  character  code  to  a  screen  code  can  be 
done  without  concerning  ourselves  with  where  the 
ASCII  code  came  from,  or  for  what  the  screen 
code  will  be  used.  The  shift  section  does  not 
need  to  account  for  where  the  shift  amount  came 
from  or  what  will  be  done  with  the  shifted  bytes. 

Combining  The  Modules 

Once  we  build  the  character  print  routine  from 
these  five  sections,  it  is  simple  to  build  a  string 
print  routine  using  the  character  print  routine. 
The  result  might  be  a  BASIC  program  like  the 
one  that  accompanies  this  article.  The  program 
uses  the  machine  language  routines  discussed  in 
this  column  in  previous  issues.  Before  running 
this  program,  you  must  run  the  BASIC  loader 
presented  in  the  May  1984  issue.  The  subroutine 
at  line  100  converts  ASCII  code  CH  to  the 
equivalent  screen  code  SC.  The  subroutine  at  line 
200  uses  screen  code  CH  to  read  the  associated 
dot  pattern  into  the  array  DP().  This  subroutine 
also  uses  CP  which  points  to  the  base  of  the 
character  dot  patterns  in  ROM. 

The  subroutine  at  line  300  uses  the  co- 
ordinates in  X  and  Y  to  calculate  an  offset  OF 
into  the  bitmap,  and  the  shift  amount  SH.  The 
subroutine  at  line  400  uses  the  shift  amount  SH 
to  right-shift  the  byte  in  BY  partially  into  B2. 
This  means  shifting  dots  out  of  the  right  end  of 
the  byte  and  into  the  left  end  of  the  other  byte. 
This  shift  routine  also  makes  the  mask  bytes.  Ml 
and  M2. 

Finally,  the  subroutine  at  line  500  writes  the 
bytes  into  the  bitmap  base  of  the  offset  OF,  calcu- 
lated earlier.  This  routine  also  uses  the  mask 
bytes  to  keep  the  necessary  old  bits  from  the  bit- 
map bytes,  before  adding  the  new  dot  pattern  bits. 
The  subroutine  at  line  600  prints  the  character  at 
the  current  coordinates  specified  by  X  and  Y,  and 
the  subroutine  at  700  prints  a  string  at  X,Y, 

Logical  Math 

I  have  used  logical  operators  (OR  and  AND) 
rather  than  division  and  the  INT  functions.  For 
example,  in  line  320,  the  term  (X  AND  —8)  gives 
the  same  result  as  INT{X/8)*8.  In  the  subroutine 
at  line  200,  the  POKEs  are  required  to  turn  off 
interrupts  and  make  the  character  ROM  acces- 
sible to  the  BASIC  program. 

The  main  routine  uses  the  string-printing 
routine  at  line  700  to  label  the  vertical  axis  for 
the  plot  of  a  sine  wave.  As  you  will  see,  the 


character  printing  is  pretty  slow.  This  part  of  the 
program  would  be  much  more  useful  written  in 
machine  language.  Next  month  I  will  discuss  the 
drawing  method  of  putting  characters  in  the 
bitmapped  display,  and  present  machine  lan- 
guage routines  for  both. 

Characters  On  A  Bitmapped  Display 

10  REM  PRINT  CHARACTERS  TO  BIT-MAP t rem  63 
20  JV=49152:REM  JUMP  TABLE  : rem  6 

30  CP=53248sREM  LOG.  OF  CHAR.  PATTERNS 

:rem  181 
40  POKE  785,PEEK(JV+28):REM  SETUP  USR() 

:rem  8 
50  POKE  786, PEEK (JV+29)  ;rem  17 

60  GOTO  1000  srem  96 

100  REM  COIIVERT  CHAR.  TO  SCREEN  CODE 

:rem  96 
110  IF  CH>31  AND  CH<64  THEN  SC=CH:RETURN 

:rem  249 

120  IF  CH>63  AND  CH<96  THEN  SC=CH-64: RETU 

RN  srem  155 

130  IF  CH>95  AND  CH<128  THEN  SC=CH-32:RET 

URN  :rem  200 

140  IF  CH>127  AND  CH<192  THEN  SC=CH-64:RE 

TURN  :rem  251 

150  SC=CH- 128; RETURN  : rem  214 

200  REM  GET  CHARACTER  DOT  PATTERN: rem  232 

210  POKE  56334, PEEK(56344)  AND  254 

I  rem  221 
220  POKE  1,PEEK(1)  AND  251  : rem  50 
230  FOR  IX=0  TO  7  :rem  100 

240  DP(IX)=PEEK(CP+SC*8+IX):NEXT  : rem  202 
250  POKE  1,PEEK(1)  OR  4  : rem  159 

260  POKE  56334, PEEK{ 56334)  OR  1  : rem  69 
270  RETURN  : rem  121 

300  REM  CALC  OFFSET  AND  SHIFT  COUNT 

:rem  43 
310  TY=199-Y:SH=X  AND  7  : rem  27 

320  0F= ( TYAND-8 ) *40+ ( XAND-8 ) +( TYAND7 ) 

: rem  106 
330  RETURN  : rem  118 

400  REM  SHIFT  BYTE  TO  CORRECT  POSITION 

: rem  84 
410  B2=0:M1=0;M2=255:IF  SH=0  THEN  RETURN 

:rem  13 
420  FOR  K=l  TO  SH:B2=:B2/2  :  rem  52 

430  IF  BY  AND  1  THEN  B2=B2  OR  128  : rem  85 
440  BY=BY/2 : Ml=  C Ml/ 2 ) ORl 28 : M2=M2/2 : NEXT 

:rem  28 
450  RETURN  : rem  121 

500  REM  PUT  BYTE  AT  X,Y  ; rem  24 

510  GOSUB  300  s  REM  CALCULATE  OF  &  SH 

:rem  171 
520  GOSUB  400: REM  SHIFT  OVER  : rem  131 
530  AD=57344+OF:REM  GET  ADDRESS  FOR  BY 

; rem  167 
540  POKE  AD,USR(OF)  AND  Ml  OR  BY  : rem  230 
550  IF  SH=0  THEN  RETURN  :rem  64 

560  POKE  AD+8,USR(OF+8)  AND  M2  OR  B2 

:rem  136 
570  RETURN  : rem  124 

600  REM  PUT  CHARACTER  AT  X,Y  trem  114 
610  GOSUB  100:REM  CONVERT  CH  : rem  114 
620  GOSUB  200: REM  READ  DOT  PATTERN 

irem  233 
630  Y=Y+8:REM  PUT  CHAR.  PROM  TOP  DOWN 

:rem  173 

640  FOR  IX=0  TO  7:Y=Y-l:BY=DP(IX):rem  136 


650  GOSUB  500:REM  PUT  BYTE  '  srem  251 
660  NEXT: RETURN  srem  245 

700  REM  PUT  STRING  S$  AT  X,Y  :rem  52 
710  FOR  SP=1  TO  LEN{S$)  : rem  218 

720  CH=ASCCMID?(S$,SP,1) )  srem  123 
730  GOSUB  600: REM  PUT  THE  CHARACTER 

: rem  53 
740  X=X+8;NEXT  srem  100 

750  RETURN  trem  124 

1000  REM  MAIN  ROUTINE  srem  240 

1010  SYS  JV:SYS  JV+6,0sSYS  JV+9,0,1 

srem  23  7 
1020  FOR  1=0  TO  10  srem  100 

1030  LB=-1+I*.2:S$=STR$(LB)  srem  213 
1050  X=5:Y=46+10*IsGOSUB  700:NEXTsrem  147 
1060  SYS  JV+12,32,50:SYS  JV+18,32,150 

srem  214 
1070  SYS  JV+12,32,100sSYS  JV+18, 319, 100 

srem  54 
1080  FOR  1=0  TO  10  srem  106 

1090  X=30:Y=50+10*I  srem  246 

1100  SYS  JV+12,X,YsSYS  JV+18, X+4,Y 

srem  205 
1110  NEXT  srem  2 

1120  SYS  JV+12,32,100:PI=3.1416  srem  124 
1130  SX=256/(2*PI)sSY=50  srem  71 

1140  FOR  1=0  TO  2*PI  STEP  2*PI/100 

srem  236 
1150  SYS  JV+18,32+I*SX,100+SIN(I)*SY 

I  rem  22 
1160  NEXT  srem  7 

9000  GET  Z$:IF  2$=""  THEN  9000  srem  231 
9010  SYS  JV+3  srem  199 
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Program  Your  Own  EPROMS 


^  VIC  20 
^C64 


$99.50 
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PLUGS  INTO  USER  PORT 
NOTHING  ELSE  NEEDED. 
EASY  TO  USE.  VERSATILE. 

•  Read  or  Pfogram.  One  byte  or 
32K  bytes! 

OR  Use  like  a  disk  drive.  LOAD, 

SAVE,  GET  INPUT  PRINT  CMD, 

OPEN,  CLOSE— EPROM  FILES! 

Our  software  lets  you  use  familiar  BASIC  commands  to 

create,  modify,  scratch  fries  on  readily  available  EPROM 

chips.  Adds  a  new  dimension  to  your  computing  capability. 

Works  with  most  ML  Monitors  too. 

•  Make  Auto-Slart  Cartridges  of  your  programs. 

•  The  promenade"  Ci  gives  you  4  programming  voltages, 
2  EPROM  supply  voltages,  3  intelligent  pfogramming 
algorithms,  15  bit  chip  addressing,  3  LED's  and  NO 
switches.  Yourcomputer  controls  everything  from  software! 

•  Textool  socket.  Anti-static  aluminum  housing, 

•  EPROMS,  cartridge  PC  boards,  etc.  at  extra  charge. 

•  Some  EPROM  types  you  can  use  with  the  promenade" 


275a  2532 

2515  Z732 

2716  27C32 

27C16  2732  A 


46Z732P  27126  5133  X2816A' 

2564  27256  5143  62813* 

2764  68764  2815'  4e016P- 

27C64  68766  28 1 6' 

*0««iOTM  ,7leCtfx:al}y  Bfaseabt  typM 


Call  Toll  Free:  800-421-7731 
In  California;  800-421-7748 
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Decimal  Mode 

Part  1 


The  6502  has  an  option  which  affects  only  the 
add  (ADC)  and  subtract  (SBC)  instructions:  deci- 
mal mode. 

Decimal  mode  is  invoked  with  the  Set  Deci- 
mal (SED)  command,  and  canceled  with  Clear 
Decimal  (CLD).  It  may  be  affected  by  stack  activ- 
ities that  pull  the  status  register — PLP  for  Pull 
Processor  status,  and  RTI — but  this  is  unusual.  In 
most  computer  environments  you  can  assume 
that  decimal  mode  is  not  in  force  when  your  pro- 
gram is  invoked;  but  if  you're  not  sure,  it  won't 
hurt  to  give  a  CLD. 

Decimal  mode  is  intended  to  help  with  cer- 
tain types  of  numbers:  Binary  Coded  Decimal 
(BCD)  numbers.  You  might  want  to  use  this  type 
of  number  system  when  the  values  are  used 
mostly  for  input  and  output  with  little  calculation 
involved. 

Binary  numbers — the  computer's  usual  nu- 
meric values — are  good  for  advanced  calcula- 
tions. Multiplication  and  division  are  easy  to  do 
in  binary,  and  more  advanced  calculations  can 
readily  be  developed.  The  only  problem  with  bi- 
nary numbers  is  this:  They  must  be  converted  to 
decimal  at  the  time  of  input  or  output. 

Decimal  numbers,  or  more  accurately  BCD 
numbers,  are  easy  to  input  and  output  since  they 
are  held  in  the  same  decimal  notation  as  was  en- 
tered or  will  be  seen  by  the  user.  With  decimal 
mode,  we  may  add  or  subtract  these  numbers 
without  converting  them  to  binary.  But  if  we 
want  to  do  more  advanced  mathematics,  we'll 
certainly  go  to  binary. 

Accounting  programs  often  use  decimal 
mode.  Similarly,  many  games  keep  scores  in 
decimal  format,  since  the  only  activities  are  add- 
ing points  as  they  are  scored  and  displaying  the 
results. 
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What  Is  BCD? 

The  easiest  way  to  describe  a  number  held  in  Bi- 
nary Coded  Decimal  is  this:  When  you  display  it 
in  hexadecimal  format,  you  see  the  correct  deci- 
mal value.  Let's  explain  this  with  a  few 
examples. 

A  value  of  9  is  held  within  a  byte  as  binary 
00001 00  L  This  is  true  whether  you  are  using  bi- 
nary or  BCD  numbering.  If  we  print  the  contents 
of  this  byte  in  hexadecimal,  it  is  displayed  as  09. 
Now,  this  not  only  represents  the  value  nine,  it 
looks  like  nine. 

If  we  are  in  binary  mode  and  add  one  to  the 
above  value,  we'll  get  00001010.  The  value  is  ten 
but  the  number  displays  in  hex  as  OA.  This 
doesn't  look  like  ten  to  those  of  us  who  are  not 
trained  to  read  hex.  Worse:  If  we  add  six,  we'll 
get  a  value  of  16,  which  prints  as  hex  value  10. 
This  doesn't  look  like  16 — if  we  didn't  know  it 
was  a  hexadecimal  number,  we  might  think  it 
was  ten. 

Let's  go  back  to  our  original  value  of  nine, 
but  switch  to  decimal  mode.  If  we  add  one,  using 
the  ADC  instruction,  we'll  end  up  with  binary 
00010000.  We  know  that  the  value  must  repre- 
sent ten,  and  when  we  print  the  hexadecimal  it 
shows  up  as  10 — which  looks  like  ten.  We  must 
ignore  the  usual  binary  rules,  which  would  tell 
us  that  binary  00010000  is  equivalent  to  decimal 
16.  In  BCD,  this  binary  number  has  a  value  of 
10.  If  we  add  a  six  in  decimal  mode,  we'll  get 
00010110  which  has  a  value  of  16  and  prints  out 
as  hexadecimal  16. 

We've  decided  to  use  the  bits  in  a  different 
way.  The  four  high  bits — the  high  nybble,  as  it's 
sometimes  called — represent  a  tens  digit;  the  four 
low  bits,  or  low  nybble,  represent  units.  Each 
nybble  may  have  a  value  from  0  to  9,  but  the  six 


Why  Pay  Retail? 


Business 

Commodore 

Eas;  Scrip!  6J/D  S  -19 

KasvSpflHJ/D S  17 

tjs;  Finance  I,  II  ea./D        S  17 

Accli.  Rtcciiahle/D S  ,19 

Ceneral  Ledger/D    S  39 

I'avfoll/Chfckwriline/D       S  i9 

AbSfmbler  M/D S   15 

l.ojo/D S  49 

Simon's  Basic/CRT S   17 

Bank  Sirecl  \Vrilcr/U    S  41 

[{omf  Accounlant/D S  JS 

Tax  Ad\anla£e S  >') 

KCM   S  3S 

Paper  Clip  Uord 

Pfoctssor S  6^ 

Belphi's  Oracle S  89 

I'racticalc  6-1 S  40 

Calc  Hesul(/£asy-CRT. . .  .  S  59 
Calc  Rfsull/Advanced-D      SI09 

Mulliplan/D S  6^ 

Oala  Manager/D S  17 

Klectronic  Checkbook    .  . . .  S  17 

Swiflav/D   S  39 

Quick  Biii«n  Fox/D S  56 

Atari 

Alari«riter S  79 

\'i5ica1c SI79 

Financial  \\iiard    S  4"* 

l.enet  Perfeci    S  79 

Oala  Pfrfecl  S  79 

Spell  Perfeci  S  59 

Sptll  Wizard S  4S 

Texl/Spell  Wizard 

Combo S  6^ 

Bank  Slreel  ^\riler S  49 

Bank  Slreet  Speller 5  49 

llomenord    S  49 

Svn  File  «    S  6^ 

Syn  Text   S   21 

-Syn  Mail $  34 

}lurne  Accounlanl    S  4S 

Tax  Advantage S  39 

Complete  Persona] 

Accountant S  6', 

Atspellcr   S  31 

Di«ketle  Mailing  List S  21 

Miles  Payroll  System S119 

Atari  Accojnling   SI69 

Family  Finance S  36 

File  .\ianager  800     S  61 


Education 

Atari 

Harcoun  Brace  SAT/D  . . .  SS9 

Chatcrbee/D S29 

Match  Wits/D $22 

Early  Games/D S22 

Larly  Games  Music/D  . . .  .S22 

Spellicoplcr J29 

Creature  Creator 129 

Math  Maie $29 

\licn  Addition/D $25 

Meteor  Multiplication $25 

Compu-Read/D $22 

Compu-Malh/Fractions  . .  .$29 
CompU'Ntath/Decimal)  ,  ,  ,$29 

Spelling  Bee  Games $29 

Speed  Read  */D $45 

Spider  Ealer/Koila $22 

Bumble  Bee/Learning  Co.    $29 
Snooper  Troops  1,  2  ea  . . . .  $32 

I  ace  Maker/CRT $25 

Kids  on  Kejs/CRT $25 

Alphabet  /.oo/CRT $25 

Kid  Writer/CRT. $25 

Delta  Drawing/CRT   $29 

Commodore 

CBS  Addition/Subl 517 

CBS  Multiplicalion/ 

Division $17 

Speed  Reader  ll/D $49 

Word  Aliack/D   $39 

Mathblas(er/D   $39 

Spellakazan/D    $29 

Crypto  Cube/D S29 

Master  Type/D-CRT S29 

Songwriter/D   $29 

Alphabet  Zoo/CRT $25 

Fraction  Fever/CRT $25 

Delta  Drawing/CRT   S29 

Facemaker/CRT $25 

Traiiis/D $29 

Kid«Tlter/CRT $25 

Dungeons  of  Algebra 

Dragons $17 

Juggles  Rainbow $22 

Bumble  Bee $29 

Farly  Game«  Piece  of  Cake  $22 
Karlt  Games  Match  Maker  S22 


Specials  of  th 

Atari  600XL  .  .' $169 

Atari  800XL $299 

Rana  1000  Disk  Drive $379 

1027  Letter  Quality  Printer $299 

Commodore  SX64  Portable  Computer  $899 
Commodore  Graphics  Printer S269 

Koala  Touch  Tablet $  79.00 

-  Flip  &  File  50 $  22.50 

Elephant  Disks  S/S $19.50 


Monitors 

Leading  Edge  Green 

Hi-Res  12" $  89 

LSI  Amber S169 

.NEC  Green  Screen $169 

Leading  Edge  Amber 

Hi-Hes  12" $  89 

lAmdek  Color  1* $315 

\ . d 
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hardware 

Frinters 

Leading  Edge  Gorilla  ....  $189 

NEC8023A S459 

Okidata  ML82A Call 

Okidata  .ML  83 A Call 

Okidata  M  1. 84P Call 

Okidata  MI,  921' Call 

C.  ITOH  8510  ProBTiler     $399 

C.  ITCH  8510  SP $665 

Mannesmann  Tally  16DL     $629 

Gemini  I  OX $315 

Mannesmann  Tally 

Spirit    $345 

Alphacom8l $189 

Modems 

Atari  1030  Modem SIIS 

Commodore  Automodem$  95 

Hayes  1200 $529 

Hayes  300  $229 


Recreation   [ 

Crisis  Mountain  , S  25 

Ken  Uston'i 

Proressional  Blackjack S   49 

Temple  of  Apshai S   29 

Lode  Runner S  2S 

Alice S   29 

Guniball , S   25 

Mask  of  the  Sun S  29 

Witness S  36 

Planelfall $  J6 

Deadline $  36 

Zork  I,  U,  HI ea.  $  29 

Enchanter S  36 

In/idet $  36 

Blue  .Max S  25 

Joust S  43 

Robotron2084   S  36 

Pole  Position S  36 

Ms.  Pic  Man 5  36 

B-1  Nuclear  Bomber  (C)      S  12 
Midway  Campaign(C) ..  .S   12 

Nukev.Tir(C) S   12 

Ttlengard(C) $   17 

Jumpman  Jt./CHT $   29 

Pilstop/CRT S  29 

Flight  Simulator  II/D....S  39 
Night  Mission  Pinball S  20 

Q  Bert/CRT i  39 

Frogger/CRT S  39 

Popeye/CRT $  39 


Computer  Ou^ 


1 095  East  Twain,  Las  Vegas,  NV  89 1 09     M  on.-Fri.  8  a.m.  to  6  p.m.,  Sat  9  a.m.  to  5  p.m. 

1-800-634-6766 


Information  and  Inquiries: 
(702)796-0296  Order 
Status:  (702)  369-5523. 


ir  YOU  Donr  see  it 


CALU 
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highest  combinations  corresponding  to  hex  A,  B, 
C,  D,  E,  and  F  will  never  be  used. 

This  makes  BCD  less  efficient  than  binary 
for  storing  numbers.  The  highest  BCD  number 
that  we  can  store  within  a  single  byte  is  99,  as 
compared  to  255  for  binary.  We  can  use  several 
bytes  together  to  hold  larger  numbers,  but  BCD 
always  holds  less:  A  two-byte  BCD  number  can 
go  from  0000  to  9999,  compared  to  a  two-byte 
unsigned  binary  number  which  can  range  from  0 
to  65535. 

But  it's  convenient.  When  we  wish  to  output 
such  a  number,  we  extract  each  digit,  convert  it 
to  ASCII  with  an  ORA  #$30,  and  print  it.  (We 
get  the  left  digit  by  using  four  LSR  instructions, 
and  the  right  digit  with  AND  #$0F.)  An  equiva- 
lent binary  number  would  need  a  divide-by-ten 
routine  before  it  could  be  output. 

Sinailarly,  input  is  a  snap.  As  each  ASCII 
digit  arrives,  it  has  its  high  bits  stripped  (with 
AND  #$0F)  and  gets  packed  together  with  an- 
other digit  to  generate  the  two-to-a-byte  BCD 
value. 


An  Example 

Here 

s  a  s 

;am 

jle  program  to  ; 

;how  the  power  of 

BCD  numbers  and  ease  of  programming  with 

them 

.  We'll  have  the  comput 

er  (PET,  VIC,  or  64) 

output  a 

table  of 

multiples  of  the  number 

142857.  This 

is  a 

favorite  peculiar  number  of 

mine 

;  you'll  see  why  when  we  print  the  table. 

;  set  value  to  zero 

033C 

A2 

00 

LDX    #$00 

033E 

8E 

90 

03 

STX 

LOW 

0341 

8E 

91 

03 

STX 

MED 

0344 

8E 

92 

03 

STX 

HIGH 

;  do  the  addition 

0347 

18 

LOOPCLC 

0348 

78 

SEI 

0349 

F8 

SED 

034A 

AD 

90 

03 

LDA 

LOW 

034D 

69 

57 

ADC 

#$57 

034F 

8D 

90 

03 

STA 

LOW 

0352 

AD 

91 

03 

LDA 

MED 

03S5 

69 

28 

ADC 

#$28 

0357 

8D 

91 

03 

STA 

MED 

035A 

AD 

92 

03 

LDA 

HIGH 

035D 

69 

14 

ADC 

#$14 

035F 

8D 

92 

03 

STA 

HIGH 

0362 

D8 

CLD 

0363 

58 

CLI 

;  print  the  number 

0364 

AO 

02 

LDY 

#$02 

0366 

B9 

90 

03 

LP       LDA 

LOW,Y 

0369 

4A 

LSR 

A 

036A 

4A 

LSR 

A 

036B 

4A 

LSR 

A 

036C 

4A 

LSR 

A 

036D 

09 

30 

ORA 

#$30 

036F 

20 

D2 

FF 

JSR 

$FFD2 

0372 

B9 

90 

03 

LDA 

LOW,Y 

0375 

29 

OF 

AND  #$0F 

0377 

09 

30 

ORA 

#$30 

0379 

20 

D2 

FF 

JSR 

$FFD2 

037C 

88 

DEY 

037D 

10 

E7 

BPL     LP 
;  print  RETURN  and  loop 

037F 

A9 

OD 

LDA    #$0D 

0381 

20 

D2    FF 

JSR     $FFD2 

0384 

E8 

INX 

0385 

EO 

07 

CPX    #$07 

0387 

DO 

BE 

BNE    LOOP 

0389 

60 

RTS 

Note  that  we  hold  the  value  we  are  calculating  in 
three  bytes;  called  LOW,  MED,  and  HIGH;  we 
add  starting  at  the  low  byte  and  working  up.  The 
Carry  flag  works  the  same  way  as  is  usual  for 
addition.  While  we're  in  decimal  mode,  we  lock 
out  the  interrupt  so  that  the  interrupt  routines 
won't  do  their  arithmetic  in  the  wrong  mode. 
The  addition  sequences  could  have  been  written 
as  a  loop;  for  the  sake  of  clarity,  it  was  done 
using  "straight  line"  coding. 

For  printing,  we  start  from  the  high  byte,  of 
course.  The  output  routine  for  BCD  is  simple 
compared  to  what  we  would  need  to  do  with  bi- 
nary values. 

If  you'd  rather  enter  the  program  from 
BASIC,  here's  the  same  program  in  DATA  state- 
ments. It  will  work  on  all  Commodore  machines. 


100 
110 

120 
130 
140 
150 
160 
170 
180 
200 
210 
220 
230 
240 
250 


DATA  162 
DATA  142 
DATA  105 
DATA  105 
DATA  105 
DATA  185 
DATA  32, 
DATA  32, 
DATA  32, 
FORJ=828 
READX:T=' 
P0KEJ,X 
NEXT  J 
IF  T<>S3 
SYS  828 


,0,142,144,3,142,145,3 

,146,3,24,120,248,173,144,3 

,87,141,144,3,173,145,3 

,40,141,145,3,173,146,3 

,20,141,146,3,216,88,160,2 

,144,3,74,74,74,74,9,48 

210,25  5,185,144,3,41,15,9,48 

210,255,136,16,231,169,13 

210,255,232,224,7,208,190,96 

TO  905 
T+X 


25  THEN  STOP 


You  might  like  to  examine  the  output  of  the  pro- 
gram to  see  what's  so  special  about  the  first 
seven  multiples  of  the  number  142857. 

Next  month,  we'll  discuss  special  features 
and  wrinkles  of  decimal  mode.  C 
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MEMi 

FLEXIBLE  DISCS 

WE  WIIX  NOT  BE  UNDER- 
SOLDn  Call  Free  (800)235-4137 

for  prices  and  informatioa  Dealer 
inquiries  Invited  and  CO.D.'s 
accepted 


PACIFIC 
EXCHANGES 

100  Foothill  Blud- 
San  Luis  Obispo.  CA 
93401.  In  Gal.  call 
(800>  592-5935  or 
(805)  543-1037 


Atari  Artist 


Andrew  S^  Kate 


With  this  program,  yon  can  place  shapes  of  any  size, 
orientation,  or  color  nnywiierc  on  the  screen.  Use  the 
joystick  to  create  the  shape,  and  change  its  color  with 
the  press  of  a  single  key. 


In  spite  of  its  simplicity,  "Atari  Artist"  can  be 
used  to  draw  complex  designs  as  well  as  realistic 
scenes.  Draw  a  circle  inside  a  triangle  inside  a 
circle,  and  so  on.  Piece  together  a  house  in  the 
midst  of  a  forest.  Then  store  your  art  on  disk  or 
tape. 

Atari  Artist  comes  in  two  versions.  Version 
1,  a  four-color  version,  has  a  blue  status  window 
and  runs  in  16K.  Version  2,  a  16-color  GTIA  version, 
has  a  gray  status  window  and  needs  24K  to  run. 

To  use  this  program,  you'll  need  a  joystick 
plugged  into  port  1.  Be  sure  to  have  a  cassette 
recorder  or  disk  drive  attached  if  you  wish  to 
LOAD  and  SAVE  copies  of  your  designs.  When 
you  first  RUN  the  program,  the  title  screen  will 
appear.  It  will  give  you  information  about  the 
keys'  uses.  At  this  point,  you  may  wish  to  select  a 
version.  Version  1  is  set  up  by  default.  If  you  wish 
to  use  Version  2,  press  and  release  the  joystick 
button.  The  number  2  should  replace  the  1  after 
the  word  version.  Press  the  button  again  to  return 
to  Version  1 . 

Once  you've  selected  the  version,  move  the 
joystick.  If  you  have  selected  Version  2  and  the 
message  ERROR  147  ON  LINE  1000  is  on  the 
screen,  your  Atari  does  not  have  enough  memory 
for  Version  2.  Type  RUN  again,  and  this  time  use 
Version  1. 

Marking  The  Shape 

After  several  seconds  the  play  screen  will  appear. 
All  three  markers  are  on  top  of  one  another  at  the 
top  of  the  screen.  Notice  the  two-line  status  win- 
dow at  the  bottom  of  the  screen. 


To  move  a  marker,  push  the  joystick  in  the 
direction  you  want  the  marker  to  go.  It  should 
respond  instantly.  The  marker  you  are  moving  is 
called  the  current  marker  and  is  indicated  by  a 
pinkish  tint.  The  other  two  markers  are  white. 
The  markers  may  move  anywhere  on  the  screen, 
including  the  hidden  area  behind  the  status  win- 
dow. If  you  try  to  move  it  off  the  screen,  the  marker 
will  stop  at  the  screen's  boundary. 

To  control  the  other  markers,  release  the  joy- 
stick and  press  the  joystick  button.  Notice  that 
MARKER  #  lights  up  in  the  status  window.  This 
is  to  show  you  that  you  are  in  the  process  of  pick- 
ing a  new  current  marker.  Release  the  joystick 
button.  MARKER  #  is  no  longer  lit  up,  but  the 
number  beneath  it  has  changed.  It  has  increased 
by  one,  or  cycled  back  from  2  to  0.  Also,  a  different 
marker  now  has  a  pinkish  tint.  That's  the  marker 
that  now  responds  to  the  joystick.  Very  soon,  you 
will  find  the  movement  of  the  markers  and  the 
switching  between  them  to  be  quite  simple. 

Change  The  Marker  Speed 

The  speed  at  which  the  joystick  moves  the  markers 
across  the  screen  can  be  changed.  Speeds  range 
from  1  to  9.  Speed  1  is  normal.  Speed  2  is  twice  as 
fast,  and  so  on  up  to  Speed  9,  which  is  nine  times 
as  fast  as  Speed  1 .  The  higher  speeds  do  not  permit 
you  to  stop  at  every  point  on  the  screen.  These 
high  speeds  are  used  to  get  across  the  screen 
quickly,  or  to  assist  in  more  advanced  drawing. 
To  change  speed,  press  the  joystick  button  and 
move  the  joystick. 

Notice  that  the  highlighted  item  in  the  status 
window  changed  from  MARKER  #  to  SPEED. 
Move  the  joystick  toward  you  to  decrease  speed 
or  away  from  you  to  increase  speed.  You  will  see 
the  number  under  SPEED  in  the  status  window 
change  as  you  move  the  joystick.  When  you've 
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reached  the  desired  speed,  release  the  joystick 
button.  Now  when  you  use  the  joystick,  it  will 
move  the  current  marker  at  the  speed  you  set. 

To  change  the  color,  release  the  joystick  and 
press  the  OPTION  key.  Notice  that  in  the  status 
window  COLOR  has  lit  up.  This  is  to  show  you 
that  you  are  in  the  process  of  choosing  the  next 
color  in  the  sequence.  When  you  release  the  OP- 
TION key,  the  next  color  is  shown  beneath 
COLOR.  To  step  through  the  color  sequence, 
repeatedly  press  and  release  OPTION.  When  the 
color  sequence  reaches  the  last  color,  it  starts  again 
from  the  first  color  (the  one  in  effect  when  you 
first  started).  Each  version  has  its  own  color  se- 
quence listed  in  the  table.  The  colors  you  actually 
see  may  vary,  depending  upon  your  computer 
and  the  tint  adjustment  on  your  TV. 

Drawing  Colors 

Version  1: 

ORANGE 

GREEN 

BLUE 

BLACK  or  erase 

Version  2: 

GOLD 

ORANGE 

REDORG  (red  orange) 

PINK 

PURPLE 

VIOLET 

STBLUE  (steel  blue) 

BLUE 

BYBLUE  (baby  blue) 

TURQUO  (turquoise) 

GRBLUE  (green  blue) 

GREEN 

YELGRE  (yellow  green) 

ORGGRE  (orange  green) 

LTGREN  (light  green) 

BLACK  or  erase 

Two  Fundamental  Shapes 

To  change  the  shape,  release  the  joystick  and 
press  the  SELECT  key.  Notice  that  in  the  status 
window  SHAPE  has  lit  up.  This  is  to  show  you 
that  you  are  in  the  process  of  selecting  the  other 
fundamental  shape.  The  two  fundamental  shapes 
are  TRIANGL  (triangle)  and  CIRCLE.  Now,  re- 
lease the  SELECT  key.  The  shape  underneath 
SHAPE  has  changed  from  TRIANGL  to  CIRCLE, 
or  from  CIRCLE  to  TRIANGL. 

To  draw  a  shape,  just  press  START.  The  pro- 
gram will  take  control  and  draw  the  shape.  When 
the  drawing  has  completed,  control  over  the  keys 
and  joystick  returns  to  you.  The  amount  of  time  it 
takes  to  draw  a  shape  will  depend  upon  its  size, 
A  circle  takes  more  time  than  a  triangle,  and  Ver- 
sion 2  is  slower  than  Version  1.  The  shape  shown 
under  SHAPE  is  drawn  and  given  the  color  shown 
under  COLOR.  If  the  shape  is  TRIANGL,  the 
three  markers  are  its  corners.  If  the  shape  is 
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CIRCLE,  it  is  drawn  using  the  markers  as  points 
along  its  circumference.  As  the  shape  is  drawn,  it 
covers  (or  erases)  anything  that  was  in  its  position 
on  the  screen. 

SAVEing  The  Screen 

To  store  the  screen  display  on  cassette  or  disk,  or 
to  reload  a  previously  stored  screen,  press  the 
OPTION  and  SELECT  keys  at  the  same  time.  The 
status  window  is  then  replaced  with  the  first  level 
of  prompt.  If  you  press  RETURN,  you'll  get  the 
status  window  back.  You  must  press  L  for  LOAD 
or  S  for  SAVE,  Other  keys  will  be  rejected  and  a 
buzz  will  sound.  Do  not  press  BREAK  or  SYSTEM 
RESET. 

When  you  press  S  or  L,  the  second  level  of 
prompt  will  be  shown.  Now,  you  must  type  a 
filename  such  as  C  for  cassette  or  D:ANDY.GRT 
for  disk.  You  cannot  type  more  than  15  letters  for 
a  filename.  Any  additional  letters  or  invalid  key- 
strokes will  be  ignored.  Mistakes  can  be  corrected 
with  the  backspace  key.  After  typing  a  filename, 
press  RETURN.  If  no  filename  is  shown,  you  will 
get  the  status  window  back.  If  the  filename  is 
invalid,  you  will  see  ERROR  DETECTED  TRY 
AGAIN  for  several  seconds  before  the  status  win- 
dow returns. 

If  the  filename  was  correct  and  you  have  the 
disk  or  cassette  set  up,  the  SAVE  or  LOAD  should 
proceed  as  explained  in  the  tape  or  disk  manual. 
When  the  SAVE  or  LOAD  is  complete  or  inter- 
rupted, the  status  window  returns. 

Keep  The  Versions  Separate 

During  a  LOAD,  the  second  prompt  will  come 
with  a  warning  to  use  files  saved  under  the  current 
version.  A  Version  2  screen  loaded  into  Version  1 
will  result  in  some  striped  colors  and  height  dis- 
tortion. A  Version  1  screen  loaded  into  Version  2 
will  result  in  different  colors  and  height  distortion. 
Also,  it  will  attempt  to  LOAD  past  the  end  of  the 
file.  During  a  LOAD  you  will  see  the  screen  fill 
from  top  to  bottom. 

Feel  free  to  interrupt  a  LOAD  by  pressing 
BREAK.  This  is  a  way  to  merge  the  top  of  a  SAVEd 
screen  with  the  bottom  of  the  current  screen.  How- 
ever, pressing  BREAK  or  SYSTEM  RESET  may 
cause  the  program  to  crash.  If  this  happens,  press 
SYSTEM  RESET  and  type  RUN. 

Before  drawing  the  shape,  the  program  cal- 
culates the  numbers  it  needs  from  the  positions 
of  the  markers.  For  the  purpose  of  positioning, 
the  screen  is  treated  as  an  X-Y  grid  with  X,Y 
pairs  for  each  separate  point  or  pixel  on  the 
screen.  The  X  can  be  thought  of  as  column  and 
the  Y  as  row.  The  upper  left  corner  of  the  screen 
is  assigned  0,0  and  the  lower  right  corner  is  as- 
signed 159,79  (79,  159  in  V2).  Then  it  uses  the 
numbers  to  draw  the  shape  one  row  at  a  time. 


Creating  A  Triangle 

Lines  507-540  contain  the  triangle  predrawing 
section.  Line  510  finds  the  highest  (A),  middle 
(B),  and  lowest  (C)  markers  by  comparing  the 
markers'  Y  coordinates.  Line  1550  has  the  six  pos- 
sibilities for  three  markers  listed  out  in  advance. 
Lines  530-536  calculate  the  slopes  of  the  imaginary 
lines  connecting  the  markers.  Lines  11-30  contain 
the  drawing  routine.  There  are  two  sections  di- 
vided by  a  horizontal  line  at  B,  In  the  first  section, 
horizontal  lines  are  drawn  from  line  CA  to  line 
BA.  In  the  second  section,  horizontal  lines  are 
drawn  from  line  CA  to  line  CB.  The  two  special 
cases  where  AY  =  BY  or  BY  =  CY  are  also  handled . 

The  circle  predrawing  section  is  lines  600-680. 
The  two  crucial  factors  here  are  the  location  of  the 
center  of  the  circle  (RX,RY),  and  the  radius  of  the 
circle  (R).  The  center  of  the  circle  is  found  by  using 
the  bisectors  rule  from  geometry.  To  apply  that 
rule,  connect  points  C  and  A  and  points  B  and  A. 
Then,  make  lines  which  pass  through  the  mid- 
points of  lines  CA  and  BA  and  are  perpendicular 
to  CA  and  BA.  We  can  use  the  point-slope  method 
to  describe  these  lines.  Finally,  find  where  these 
lines  intersect.  That  is  done  by  solving  simultane- 
ous linear  equations. 

Plotting  A  Circle 

To  find  the  radius,  calculate  the  distance  from  the 
center  of  the  circle  to  point  A.  In  the  program, 
any  of  the  three  markers  are  used  as  points  A,  B, 
and  C.  The  markers  are  tried  in  different  orders  in 
line  1550  until  a  center  is  found. 

Notice  line  650.  The  TRAP  is  there  to  test  for 
the  case  where  the  slopes  of  the  bisectors  are  equal. 
This  will  occur  only  when  the  three  markers  are 
in  a  straight  line.  You  can't  draw  a  circle  on  a 
straight  line.  The  actual  drawing  is  performed  by 
lines  2-10.  It  is  done  by  drawing  the  upper  half 
and  the  bottom  half  simultaneously,  starting  at 
the  equator  and  going  to  the  poles.  X,Y  pairs  which 
are  outside  the  screen  range  are  converted  to  fit 
on  the  screen  for  partial  horizontal  lines. 

Finally,  an  FT  factor  is  used  to  make  round 
circles.  If  you  draw  circles  without  using  FT,  they 
come  out  oval.  This  is  because  the  height  of  a 
screen  pixel  is  not  equal  to  its  width. 

With  careful  planning,  you  can  construct 
interesting  designs  or  detailed  scenes  that  have 
the  quality  of  a  watcrcolor  painting.  By  combining 
the  two  fundamental  shapes  of  nature — the  circle 
and  the  triangle — you  can  form  many  other  shapes 
such  as  rectangles,  stars,  diamonds,  and  crescents. 
The  program  teaches  children  drawing  composi- 
tion and  the  names  of  the  colors. 


Drawing  A  Rectangle 

Let's  draw  a  rectangle. 


step  1:  Move  the  markers  together  until  they  are  exactly 
on  top  of  one  another.  This  will  be  the  lower  left  corner 
of  the  rectangle. 
Step  2:  Increase  the  speed  (9  is  OK). 

Step  3:  Move  a  marker  right  by  tapping  the  joystick. 
Count  how  many  laps  you  make. 
Step  4:  Do  the  same  thing  with  another  marker  but  in 
the  up  direction. 

Step  5:  Press  START. 

Step  6:  Move  the  third  marker  right  and  then  up  the 
same  number  of  times  you  counted  in  steps  3  and  4. 
Step  7:  Press  START  and  you'll  have  a  rectangle. 

Now  that  you  have  the  general  idea,  try  drawing 

some  shapes  oil  your  own. 

Here's  some  advice  about  circles.  Since  the 
markers  form  the  edge  of  the  circle,  lining  up  the 
markers  in  a  straight  line  will  form  a  very  large 
circle.  In  fact,  it  may  not  form  a  circle  at  all,  because 
you  can't  draw  a  curve  on  a  straight  line.  The 
computer  will  buzz  at  you  if  you  tell  it  to  draw  a 
straight  line  circle.  Move  one  marker  a  little  and 
try  again.  You  will  see  that  very  large  circle.  Some- 
times circles  are  partly  off  and  partly  on  the  screen. 
If  the  partly  off  part  is  drawn  first,  you  may  have 
to  wait  a  few  seconds  before  you  see  your  circle 
being  drawn.  Be  patient.  Soon  you  will  become 
familiar  with  how  circles  are  made,  so  you  will 
know  in  advance  how  one  will  come  out  before 
it's  drawn. 

The  Background  Comes  First 

When  you  draw  a  scene,  remember  to  do  the  back- 
ground first.  It  is  just  like  painting:  The  new  shape 
will  cover  the  old.  You  may  notice  that  certain 
colors  contrast  each  other  and  certain  colors  blend 
into  each  other.  This  and  other  visual  effects  can 
and  should  be  used  to  your  advantage.  Remember 
also  that  the  same  color  can  look  different  with 
different  backgrounds. 

If  you  see  the  colors  changing  after  you  have 
been  drawing  for  a  while,  your  Atari  is  in  attract 
mode.  The  purpose  of  attract  mode  is  to  protect 
your  TV  from  permanent  burn-in  of  colors.  To  get 
your  normal  colors  back,  just  press  the  SPACE 
bar  or  a  letter  key. 

There  is  no  specific  feature  for  clearing  the 
screen,  but  it's  easy  to  start  with  a  clean  slate.  Just 
move  the  markers  to  three  of  the  corners  of  the 
screen  and  draw  a  BLACK  TRIANGL.  Then  move 
a  marker  to  the  fourth  corner  from  the  corner 
diagonally  opposite  and  draw  again. 

You  may  want  to  modify  the  program.  One 
simple  modification  is  to  use  the  16  shades  of  the 
GTIA  mode.  In  this  mode,  the  names  of  the  colors 
should  be  reinterpreted  as  shades  of  gray.  In  lines 
1525  and  1530,  change  623  to  65,  87  to  9,  and  712 
toO. 

Refer  to  the  "Automatic  Proofreader  article  before  typing  thiis 
progronn  in. 
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CN  30 

NE 

100 

NI 

1  10 

H6 

120 

DB 

130 

Atari  Artist  P6435   st  (55,  55)=chr«  <speed  +  i6> 

St:  440  GOTO  405 

FL  1  GOTO  10000  SK  500  COLOR  COLRzRESTORE  1550 

IE  2  FOR  Y  =  0  TO  R :  X=SQR  (  RS-Y«  Y  >  :  X  1  =  FT»  «K  505  IF  SHAPE=1  THEN  600 

(RX-X>  :  X2  =  FTt  (RX  +  X)  :  Y1=RY-Y:  Y2  =  RY  OP  507  TRAP  6<?9:READ  A,B,C 

+  Y  IJS10  IF  YM(A)<  =  YM<B)   AND  YM(B><=YM<C 
PO  3  IF  Yl>YMftX  THEN  Y1=YMAX  )  THEN  A  Y  =  YM  (  A )  :  AX  =  XN  <  A  >  :  BY  =  YM  ( 

AB  4  IF  Y2>YMAX  THEN  Y2  =  YMAX  B  )  :  B  X  =  XM  (  E)  :  CY  =  YM  (  C  )  :  CX  =  X  M  (  C  )  :  G 

BH  5  X1  =  X1  *  (XI  >0)  :  IF  X1>XMAX  THEN  Xl  =  -  OTO  520 

1  611511  GOTO  507 

PP  6  IF  X2>XMAX  THEN  X2=XHAX  NJ  520  A  X  =  <  AX -48  )  «  X  T  :  BX  =  (  BX -48  )  «  X  T  :  C  X  = 
BC  7  IF  XK0  OR  X2<0  THEN  10  (  CX -4B  )  «  X  T  :  A  Y=  C  A  Y- 1  6  )  « YT  :  BY=  (  BY 

PEG  IF  Y1>  =  0  THEN  PLOT  Xi,Yl:DRAWTO  X  -  1  6  >  *  YT  :  C  Y=  (  C  Y- 1  6  )  *  YT 

2,Y1  EE  530  TRAP  532  :  KCA=  <  CX- AX  )  /  (  C  Y- AY  ) 

PI  9  IF  Y2>  =  0  THEN  PLOT  X1,Y2:DRAWT0  X  EF  532  TRAP  534  :  KBA=  <  BX  -  AX  )  /  (  B  Y- AY  ) 

2,Y2  EP  534  TRAP  536  :  KCB=  <  CX -BX  )  /  (  C  Y-BY  ) 

PK  10  NEXT  YsGOTD  100  «J  536  TRAP  40000 

HB  1  1  IF  AY  =  BY  THEN  PLOT  AX,AY:DRAWTO  DE540  GOTO  11 

BX,BYrGOTO  20  OJ  600  TRAP  699:READ  A,B,C 

1ft  15  FOR  Y  =  AY  TO  BY:PLOT  CX-<CY-Y)*KC  DC601  A  X  =  {  X  M  C  A  > -48  )  »  XT  /  FT  :  AY=  C  YM  (  A  )  -  1 
A,Y:DRAWTO  B X  - < B Y-Y )  *KB A , Y : NEXT  6)*YT 

Y  DG610  BX=  (  XM  (B) -48)  «XT/FT:  BY=  (YM  (B) -1 
HI  20  IF  BY  =  CY  THEN  PLOT  BX,BY;DRAWTO  6>*YT 

CX,CY:GOTO  30  DL  620  C  X  =  (  X  M  (  C  ) -48  )  *  X  T /FT  :  CY=  (  YM  (  C  )  -  1 
!H  25  FOR  Y  =  BY  TD  CY:PLDT  CX-(CY-Y)«KC  6)*YT 

A,Y:DRAWTO  C X  - < C Y-Y )  *KCB , Y : NEX T  II  625  IF  CY  =  AY  OR  BY  =  AY  OR  AX  =  BX  THEN 

Y  600 
SOTO  100  DK  630  KCA=  (AX-CX)  /  (CY-AY> 

REM  MAIN  LOOP  DJ  632  KBA=  (  AX -BX  )  /  (  BY- AY  ) 

IF  PEEK  (53279)  =6  THEN  500  PB  640  LCA=  (  C  Y  + AY  )  /2-KCA*  (  CX -i-AX  )  /  2 

ST  =  STICK{0)  OP  6  42  LBA=  (  B  Y  + A  Y  )  /  2-KBA*  (  BX  +  A  X  )  /  2 

IF  ST=15  THEN  IF  PEEK ( 53279) =3  PE 650  TRAP  699 : RY= ( KBAtLCA-KCAtLBA) / ( 

THEN  700  KBA-KCA) 

OD  132  IF  ST=15  THEN  IF  PEEK  ( 53279  )=  1  UN  660  TRAP  40000 :  RX=  ( RY-LBA ) /KBA 

THEN  900  AG  670  RS=  (  RY-A  Y  )  «  (  RY-A  Y  )  +  (  RX  -  AX  )  «  <  RX - 

OJ  135  IF  ST=15  THEN  IF  PEEK  ( 53279 )  =5  AX) 

THEN  B00  *IP  675  R  =  SQR(RS):IF  R>200  THEN  699 

GF  140  IF  ST=15  THEN  IF  STRIE(0)=0  THE  f^J  680  GOTO  2 

N  300  EF  699  TRAP  40000:  FDR  1  =  0  TD  30:  POKE  5 

DD  150  XM(MARKER) =XM (MARKER)  +SPEED*X  (B  3279,0:NEXT  I  :  GOTO  100 

T)  : YNEW  =  YM(MARKER)  +SPEED*Y(ST}  £3  700  S*  ( 1 9 ,  26 ) =HE I D*  (  1 7 ,  24 ) 

Hfi  160  IF  XM(MARKER)  >206  THEN  XM(MARKE  Dfl720  IF  PEEK  ( S3279 ) =3  THEN  720 

R)=206  G6  730  COLR  =  COLR+ 1  :  I  F  COLR  =  NCOLRS  THEN 

Ell  170  IF  XMtMARKER><49  THEN  XMfMARKER  COLR  =  0 

)=43  A3  740  S*  (  19,  26)  =HEAD$  (  17,  24  )  :  S*  (  60,  65 

CE  180  IF  YNEW<Ci6  THEN  YNEW=16  )  =COLR*  (  CDLR«6  +  1  ,  COLR  t6  +  6  ) 

HP  190  IF  YNEW>ill  THEN  YNEW=111  GB  750  GOTO  100 

011200  POKE  53252  +  MARKER,  XM  (MARKER)  Cft  800  S*  (  27  ,  34  )  =HE  I  D*  (  25  ,  32  ) 

CA  204  IF  YNEW=YM  (MARKER)   THEN  210  OE820  IF  PEEK  ( 53279 )  =5  THEN  820 

OA  205  POKE  PMM  +  YM(MARKER)  ,  PEEK  (PMM  +  YM  Bi  030  SH APe=  1 -SHAPE 

(MARKER)  )  -MK  (MARKER)  ;PDKE  PMM  +  Y  NE  840  S* ( 27 , 34 ) =HE AD*  ( 25 , 32 )  : S* ( 6B , 74 
NEW, PEEK (PMM+YNEW) +MK (MARKER) : Y  )=SHAPE* (SHAPEt7+l , SHAPE* 7+7) 

M  (MARKER)  =YNEW  SH  856)  GOTO  100 

GOTO  100  6A900  SS*  =  S«:POKE  764  ,  255 :  CLOSE  #2:0P 
S*(3, 10)=HEID« (1 ,8)  EN  #2 , 4 , 0 , " K : " : POKE  702,64:POKE 

IF  STICK (0) < >15  THEN  S4(3,10>=H  694,0 

EAD*  (  1  ,  8)  :  GOTO  400  HH  9 1 0  S«="    PRESS  £1  TO  LOAD  SCREEN  FR 
IF  STRIG(0)=0  THEN  320  OM  FILE<8  SPACESIPRESS  3  TO  SAV 

POKE  704+MARKER, 14  E  SCREEN  TO  FILEtO  SPACES3" 

MARKER=MARKER+1 : IF  MARKER=3  THE  JF920  FOR  1=1  TD  80 : 3$ ( I , I ) =CHR* ( ASC ( 
N  MARKER  =  0  S* ( I  ,  I)  ) -32 )  : NEXT  I 

QG355  S«  (3.  10)  =HEAD*  (  1  ,  8)  :  S«  (46,  46)=C  JO  925  GOSUB  2000:  IF  A=155  THEN  999 

HR* (MARKER+16)  : POKE  704+MARKER,  FN  926  IF  A  =  ASC<"L")   THEN  W  =  4:B=7:G0T0 
60  940 

SB  360  GOTO  100  JE927  IF  A  =  ASC("S")   THEN  W  =  8:  8=11:  GOT 

BL  4  00  S*  (  1  1  ,  18)  =HEID«  (9,  16)  0  940 

EN  405  FOR  W=l  TD  50:  NEXT  W  QI  930  FOR  1  =  1  TO  25:  POKE  53279,0:  NEXT 

EI410  IF  STICK(0)=15  THEN  S*(11.18)=H  I;GOTO  925 

EAD*  (9.  16)  :  GOTO  100  JO  940  S*=  "    FILE  NAME  ?<:67  SPACES3":F1 

DH420  IF  STICK(0)  =  14  THEN  SPEED  =  SPEED  LE*  =  S*  (  1  4  ,  28  ) 

+  1:IF  SPEE09  THEN  SPEED  =  9  BL941  IF  W  =  4  THEN  SS  (  4  2  ,  65  )  =  "  F  I  LE  MUS 

CH430  IF  STICK(0>=13  THEN  SPEED=SPEED  T  BE  FOR  VERSI ON " : S« ( 67 , 67 ) =CHR 

-1:IF  SPEED<i  THEN  SPEED=1  * ( ASC ( " 0 " ) +V ) 
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FN 

210 

HN  300 

BK 

320 

GA 

330 

OE 

345 

AO 

350 

it   943 


95(3 
955 

960 
9  65 
968 

970 
975 

973 

980 

981 


FOR 
S«  ( 

1=0 

GOS 

N  9 

IF 

IF 

IF 

978 

IF 

1  =  1 

FIL 

)  =C 

TRA 

IF 

75 

0:  P 


1=1  TO  80: S* ( I , I ) =CHR* ( ASC < 
1,1)) -32) : NEXT  I 


UB 
99 
A  = 
A  = 
A  = 
:  I 
1  = 
+  1 
E* 
HR 
P 

FI 
35 
OK 


2000: IF  A=155  AND  1=0  THE 


1  55 
126 
126 
=  1- 
15 
:  GO 

<  I, 
*  t  A 
997 
LE« 
:  PO 
E  5 


TH 
AN 
TH 
1  :  G 
THE 
SUB 
I  )  = 
-3  2 
:P0 

<  1  , 
KE 

376 


EN 
D  I 
EN 
OTO 
N  9 
97 
CNR 
)  :  R 
KE 
1  )  = 
537 
6,  0 


98 
=  0 
A  = 
9 
d5 
8: 
*  ( 
ET 
54 
"C 
68 
:  P 


0 

THEN 
ASC  (  " 


95Z 

"   )  : 


GOSUB 


GOTO  955 

A) : S* ( 14+1 , 14+1 

URN 

286, 64 

"  THEN  POKE  537 

,40: POKE  53764, 

OKE  53773,255 


9a: 

98; 


990 
997 


OPEN  #1,W,0,FILE* 

POKE  852, PEEK (88) : POKE  853, PEEK 
(89): POKE  856,0: POKE  857,15*V:P 
OKE  850, e 

B=USR (ADR (CIO*) ): GOTO  999 
TRAP  40000: POKE  54286 ,  1 92  :  S«  ( 42 
,67)="ERROR  DETECTED  TRY  AGAIN 


998  F 

( 

999  T 
E 

1000 


BD  1001 


1003 
1004 
1005 
10  10 

101  1 

1012 

1013 


?S  1014 


1015 
1016 

1020 

1021 

1022 
1023 


OR  I 
S*  (  I 
1000 
RAP 

#  1  : 
IF  V 
K  (  10 
2:  FT 
IF  V 
K  <  1  0 
T=l  . 
POKE 
OKE 
POKE 
7:  PO 
FOR 
T  I 
DIM 
>  ,  SH 
FOR 
252  + 

PMM 
MK  (  0 
MIBS 
COLR 
GPIN 

BYB 
EORG 
SHAP 

THE 
EGRE 
FDR 
ASC  C 
FOR 
(ASC 
SHAP 
1  :  PO 
DIM 
256) 
S$=" 
FOR 
(S*  i 
DIM 

SPE 


1025 

1026  DIM  HEIP 


=  42 
,  1  )  ) 
:  NEX 
4000 
GOTO 
=  2  T 
6)  -3 
=  0.3 
=  1  T 
6)  -2 
25:  X 

542 
559, 

623 
KE  I 
1=0 

XM  (2 
APE* 
1=0 
1,12 
+  16, 
)  =3: 
I  LE 
*="B 
h;  P 
LUET 
GREL 
E*=" 
N  CO 
EN  B 
1  =  1 
COLR 
1  =  1 
(SHA 
E  =  0: 
KE  7 
S*  (8 
;  SL  = 
"  :  S 
1  =  1 
I  ,  I  > 
HEAD 
ED 


TO 

-32 
T  I 
0:  S 

15 
HEN 
6:  N 
125 
HEN 
0:  N 
MAX 
79, 
38: 
,  1  : 
,  0: 
TO 


67:S*(I, I)=CHRt(ASC 
)  : NEXT  I  : FDR  1  =  1  TO 

«=5S*: CLOSE  «2:CL0S 
20 

GRAPHICS  24:PM=PEE 
C0LRS=16: XT=0.5:YT= 
:XMAX=79:YMAX=191 

GRAPHICS  23:PM=PEE 
CaLRS=4:XT=l:YT=l:F 
=159: YMAX=95 
PM:PMM=PM»256+384:P 
POKE  53277, 1 
FOR  I=PMM  TO  PMM+12 
NEXT  I 
2:P0KE  704+1, 14:NEX 


) ,YMi2) ,MK(2) ,CDLR*{96 

(14) 

TO 

5:  YM  ( 


XM ( I ) =125: POKE  53 
I)=16:NEXT  I: POKE 


MK  (  1  ) 
MASKS 
LACK 
URPLE 
URQUO 
TEREN 
TRI  AN 
LR*  (  1 
LUE 
TO  96 
$  (  I  ,  I 
TO  14 
PE*  (  I 
COLR  = 
04,  60 
0)  :  S  = 
S-SH* 

*  (  B0) 
TO  80 
)  -32) 

*  (32) 
COLOR 


=  i: 


MK (2) =48: REM 


GOLD  ORANGEREDOR 
VIOLETSTBLUE  BLUE 
GRBLUEGREEN  YELGR 

SLCIRCLE  " : IF  V=i 
,24)="BLACK  ORANG 

: COLR« (1,1) =CHR* ( 
) ) -32) : NEXT  I 
: SHAPE* (1,1) =CHR« 
, I ) ) -32) : NEXT  I 
1 : MARKER=0: SPEED= 

ADR (S*) : SH=INT (S/ 

256 

="  ":S*(2)=S* 

: S* (  I  ,  I  >  =CHR«  (ASC 

:NEXT  I 

: HEAD*="MfiRKER  # 

f3  SPACESJBHAPE 


« (32) : HEI D*= 


EC 

OF 
LJ 
EE 

m 

EH 
KC 

KC 

DB 

SD 


1028 
1029 

1030 

1034 

1035 

1  100 

1  105 
1110 
1500 

1501 

1502 

15  03 


JG  1513 


LC  15  14 


fij  15  15 


DO  i; 


1521 
1525 


HI  15  30 


DP  1027  FDR  1  =  1  TO  32  :  HEAD*  (  I  ,  I  )  =CHR*  ( 


JE 
ED 

DL 

BC 

PB 

t;] 
fin 

Nt 

Bi 

n 

D6 
•J 
SE 
Pp 

m 

0! 

fL 
HN 
DD 

5f 


.     TO     15: 
NEXT      I 
1,1,-1, 


fiSC(HEAD« (  I  ,  I )  )  -32)  :NEXT     I 

FOR     1=1     TO     32:HEID* ( I , I ) =CHR* ( 

ASC (HEID* ( I , I ) ) -32) : NEXT     I 

S*(3,34)=HEAD*:S*(46,46)=CHR*( 

MARKER+16) : S* ( 55 , 55 ) =CHR* (BPEE 

D+16):S*<60,65)=COLR*(COLR*6+1 

, COLR*6+6) 

S«<6a,74)=SHAPE* (SHAPE*7+1 , SHA 

PE*7+7 ) 

DIM  X ( 15) , Y ( 15) : FOR  I=: 

READ  A, B: X ( I > =A: Y ( I ) =B; 

DATA  1,1,1,-1,1,0,0,0,- 

-1,-1,0,0,0,0, 1,0,-1,0,0 

DIM  CIO*(6):FOR  1=1  TO  6:READ 

A; CIO* ( I , I ) =CHR* ( A) : NEXT  I 

DATA  104,162,16,76,86,228 

DIM  SB* (80) , FILE* ( 15) 

DIM  DLI*(14):F0R  1=1  TO  14; 

D  A: DLI* ( I , I )=CHR* (A) : NEXT 

DATA  72,173,111,2,41,3,141. 

212, 141, 27, 208, 104, 64 

DL= PEEK (560) +PEEK (56  1 ) *256: 

V=l  THEN  1514 

POKE  DL+1 82, 143: POKE  DL+ia3,66 

:POKE  DL+ 186, 2: POKE  DL+1B7,PEE 

K(DL+199) :POKE  DL+ia8,PEEK(DL+ 

200) 

POKE  DL+ 189, PEEK (DL+20  1) :POKE 

DL+184,  SL:  POKE  DL+ 1  85',  BH :  GOTO 

1520 

POKE  DL+93, 66: POKE  DL+96,2:P0K 

E  DL+97, PEEK (DL+101 ): POKE  DL+9 

8, PEEK (DL+102) 

POKE  DL+99 , PEEK (DL+103) : POKE  D 

L+94,SL:P0KE  DL+95 , SH : GOTO  152 

0 

;E  513, INT ( ADR (DLI*) /256) : PO 

12,ADR(DLI*) -256* PEEK (513) 

:E  54286,  192 

V=2  THEN  POKE 

1  1 

V=2  THEN  POKE  7i: 
POKE  709, 14 


REA 

I 

10, 

IF 


POK 

KE 

POKI 

IF 

87, 

IF 

0.  8: 


623, 193: POKE 


3:PDKE  7  1 


1540 
1550 

2000 

2005 

2010 
2015 

1000)! 
1000] 

1000: 

100  1)! 
10024 
1003S 

i004£ 

1005t 

1005; 

1006S 

1006! 

1006 
1006 
1006 
1006 


GOTO  100 
DATA  0.1,2, 
,0,2,2,0, 1 
A  =  PEEK  (764) 
R  A=37  THEN 
GET  4*2,  A:  IF 
N  RETURN 
IF  A<32  Oft 
RETURN 


2,1,0,0,2,1,1,2,0,1 


IF  A  =  : 

2000 

A=126 


OR  A=60  O 


OR  A=i: 


THE 


=96  THEN 


Z000 


GRAPHICS  17:POKE  752,1:V=1 
DL=PEEK (560) +256SPEEK (56  1 ) 
POKE  DL+3,71:F0R  1=6  TO  11 
KE  DL+I , 7: NEXT  I 


PO 


7,1:? 
10,3:' 


«6; "WELCOME" 

#6; "to" 
#6;  "Eff^TJ=Is:  and 


#6;  "EPtBOd 


L^JIJ*. 


"aznai 


POSITION 

POSITION 
POSI TION  2,5:' 
CElERs" 

POSITION  0, 10: 

HANGE  COLORS" 

POSITION  0,11:7  *6: 

HANGE  SHAPES" 

POSITION  0,12:?  #6: 

{3  SPACESJTO  DRAW" 

POSITION  0,15:?  #6; "move  stic 

k  to  begin"; 

POSITION  0,14:7  #6;"bL!ttDn  -f  o 

r  version  ";V; 

IF  STICK (0)<>15  THEN  1000 

IF  STRIG(0)=0  THEN  V=3-V 

IF  BTftIG(0)=0  THEN  10068 

GOTO  10065  © 
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PROGRAMMING  THE  Tl 


C.  Regena 


Programming  Techniques 

In  Tl  BASIC 


This  month,  by  answering  some  of  the  common 
questions  I  have  received  from  readers,  I'm  going 
to  give  you  a  variety  of  programming  techniques 
that  you  can  use  in  your  ov^rn  programs. 

How  do  you  clear  part  of  a  screen? 

Let's  say  you  have  onscreen  a  nice  picture  Vk'ith  a 
description  underneath.  CALL  CLEAR  will  clear 
the  whole  screen;  but  you  want  to  clear  the 
printing,  not  the  picture.  Use  CALL  HCHAR 
with  the  row  and  column  parameters  under  the 
picture,  and  use  the  number  of  repetitions  that 
will  clear  the  section  you  want.  For  example,  to 
clear  the  lower  half  of  the  screen,  CALL 
HCHAR(13,1,32,32*12).  We're  starting  with  row 
13,  column  1,  and  clearing  with  the  space 
(character  code  32)  for  32*12  squares— 32  col- 
umns times  12  more  rows. 

To  clear  with  a  different  color,  redefine  a 
character  (in  a  color  set  you  are  not  using)  as  a 
colored  square,  then  use  CALL  HCHAR  to  put 
that  character  on  the  screen: 

300  CALL  COLOR (13, 16, 16) 

310  CALL  HCHARC 13, 1 , 128, 32*12) 

To  clear  a  vertical  section  of  the  screen,  use 
CALL  VCHAR: 

CALL  VCHAR(1,17,32,24*16) 

To  try  out  this  technique,  try  this  sample 
program: 

100  CALL  HCHAR ( 1 , 1 , 42, 32*24) 
110  CALL  HCHAR ( 13, 1 , 32, 32* 12) 
900  GOTO  900 

Change  line  110  to  the  CALL  VCHAR  statement 
above  and  try  the  program.  Next  take  out  line 
110  and  put  in  lines  300  and  310  listed  above. 
Experiment  with  different  numbers  of  repetitions. 

How  do  you  get  a  border  around  the  screen? 

CALL  SCREEN(c),  where  c  is  a  number  from  1  to 
16,  defines  the  screen  color.  When  you  use  this 
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statement  in  a  program,  the  whole  screen  in- 
stantly changes  color.  CALL  COLOR(s,/,&)  de- 
fines the  character  colors.  The  characters  are 
divided  into  sets  of  eight  characters  each.  The  s 
in  the  parentheses  is  the  set  number  and  can  be 
from  1  to  16.  The  /  is  the  foreground  color  of  the 
character,  b  the  background  color,  and  they  can 
be  one  of  the  16  color  numbers,  from  1  to  16. 
Now  take  a  look  at  the  characters  in  set  1. 
The  space  is  code  32  in  set  1.  The  screen  is  filled 
with  spaces  wherever  there  isn't  any  printing  or 
graphics.  If  you  change  the  color  of  set  1  to 
something  other  than  the  screen  color  (back- 
ground color  1),  you'll  get  color  where  all  the 
spaces  are. 


100  CALL 

110  CALL 

120  CALL 

900  GOTO 


CLEAR 
SCREEN (14) 
COLOR (1,2, 16) 
900 


Press  FCTN  4  (CLEAR)  to  stop  the  program. 
You've  got  a  border  on  the  top  and  on  the  bot- 
tom, but  you  would  like  the  sides  also.  When  we 
PRINT  messages  we  have  a  28-column  line,  but 
when  we  do  graphics  we  actually  have  32 
columns — there  are  two  columns  on  each  side  of 
the  regular  printing  section.  They  currently  have 
spaces  in  them.  To  get  the  screen  color  in  those 
columns,  add 


115     PRINT 


Or,  as  you  print  messages,  those  extra  columns 
fill  with  the  screen  color.  (As  you  PRINT,  col- 
umns 1,  2,  31,  and  32  will  contain  character  31.) 
A  quicker  way  to  get  rid  of  the  spaces  in  those 
columns  is  to  fill  the  columns  with  a  character  in 
the  screen  color.  You  may  add  these  lines 
instead; 


115 
1  16 
1  17 


CALL 
CALL 
CALL 


CHAR  (152,  '■  '■  ) 
VCHAR( 1,1, 152, 48) 
VCHAR (1,31, 152, 48) 


Now  try  a  few  PRINT  messages,  such  as 

150     PRINT     "HELLO" 

Notice  that  the  letters  have  Uttle  squares  of  the 
screen  color  around  them.  All  the  color  sets  are 
automatically  defined  as  CALL  COLOR{S,2,l), 
which  is  black  with  a  transparent  background. 
The  color  number  1,  transparent,  will  be  the 
screen  color.  If  you  want  the  printing  to  be  black 
on  your  inner  screen  color  (the  color  of  the 
spaces),  you  need  to  define  the  sets  with  the 
background  color  that  you  used  in  set  1.  Change 
line  120  above  to 

120  FOR  S=l  TO  12 

130  CALL  COLGR(S, 2, 16) 

140  NEXT  S 

This  defines  a  white  background  for  the  first  12 
character  sets,  those  sets  which  have  letters  and 
symbols.  Now  run  the  program  and  you  will  see 
that  the  message  no  longer  has  the  screen  color 
background. 

How  do  you  make  a  simple  math  drill  with 
graphics? 

I  have  had  quite  a  few  requests  for  an  arithmetic 
drill  program.  Many  readers  would  like  to  de- 
velop such  programs  on  their  own  and  want  to 
know  how  to  draw  a  certain  number  of  pictures 
for  the  numbers  chosen  randomly  in  a  simple 
math  problem. 

Here  is  a  short  program  to  give  you  the  gen- 
eral idea  of  using  the  graphics.  I  defined  charac- 
ter 128  to  be  the  picture.  The  variables  A  and  B 
can  be  numbers  from  zero  to  four.  Lines  170-200 
print  the  problem  on  the  screen — a  simple  addi- 
tion problem.  Lines  210  and  220  draw  the  right 
number  of  characters  for  A  and  B. 

Program  1 :  simple  Math  Drill 


100 
1 10 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


REM 

CALL 

CALL 

CALL 

RAND 

A=IN 

B=IN 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

IF  S 

IF  K 

IF  K 

CALL 

CALL 

GOTO 

CALL 


SIMP 

CLEA 

CHAR 

COLO 

OMI  ZE 

T  (5«R 

T  <5«R 

HCHA 

HCHA 

HCHA 

HCHA 

HCHA 

HCHA 

SOUN 

KEY  ( 

<  1  TH 

=  32  T 

=  A  +  B  + 

SOUN 

SOUN 

240 

HCHA 


LE  MATH 
R 

(128, "0024002418" ) 
R ( 13, 2,  11) 

NO) 

ND> 

R(a, 10, A+4B) 

R ( 10, 8, 43) 

R  C10,  10, 8  +  48) 

R ( 1 1 ,8, 95, 3) 

R (8, 12, 128, A) 

R( 10, 12, 128, B) 

D ( 150, 1497, 4) 

0,  K, S) 

EN  240 

HEN  400 

48  THEN  310 

D ( 100, 330, 2) 

D ( 100, 262, 2) 

R ( 13, 10, K) 


320 

PRINT 

330 

CALL 

340 

CALL 

350 

CALL 

360 

CALL 

370 

CALL 

380 

CALL 

390 

BOTO 

400 

CALL 

410 

END 

"CORRECT! " 
SOUND  C100, 262, 2) 
SOUND ( 100, 330, 2) 
SOUND ( 100, 392, 2) 
SOUND(200, 532, 2) 
SOUND ( 1 , 9999, 30) 
CLEAR 
140 
CLEAR 


If  you  prefer  to  have  a  space  between  graph- 
ics characters,  place  a  character  in  every  other 
space.  You  can  do  this  by  changing  lines  210  and 
220  above  to  the  following: 

210  FDR  C=12  TO  12+2»(A-1)  STEP2 

212  CALL  HCHAR (8, C, 128) 

214  NEXT  C 

220  FOR  C=12  TO  12+2* (B-1)  STEP2 

222  CALL  HCHARt 10, C, 128) 

224  NEXT  C 

In  this  sample  program,  an  addition  problem 
is  presented  and  the  student  answers  by  pressing 
a  number.  If  it  is  incorrect,  there  is  an  "uh-oh" 
sound.  If  it  is  correct,  an  arpeggio  is  played  and 
the  computer  goes  to  the  next  problem.  To  stop, 
press  the  space  bar. 

How  can  you  draw  a  bar  graph? 

This  procedure  is  similar  to  the  previous  sample 
program.  The  easiest  way  to  draw  a  bar  graph  is 
to  use  HCHAR  with  the  appropriate  number  of 
repetitions  (or  VCHAR).  You  may  need  to  scale 
the  numbers.  Take  the  highest  number  you'll 
need  to  graph,  relate  it  to  the  greatest  number  of 
repetitions  you  can  have  in  your  HCHAR  state- 
ment, and  stay  on  that  row. 

Another  method  is  to  use  PRINT  and  print 
the  right  number  of  characters  for  the  bar.  The 
following  sample  program  segment  demonstrates 
this  method.  Character  128  will  be  a  red  square. 
For  purposes  of  illustration,  I  will  use  random 
numbers  N  up  to  90  for  the  amounts  to  be 
graphed.  You  would  probably  have  specific 
numbers  that  have  been  calculated  or  read  in 
from  DATA. 

A  is  the  scaled  value  (rounded)  for  N — for 
every  four  units  one  square  can  be  drawn.  Line 
170  prints  the  number  N  then  says  to  start  the 
next  printing  in  the  fifth  print  column.  Lines 
180-200  print  the  appropriate  number  of  red 
squares. 

Program  2:  Bar  Graph  Generator 

100  REM   BAR   GRAPH 

110  CALL  CLEAR 

120  CALL  COLOR ( 13, 7, 7) 

130  FOR  1=1  TO  10 

140  RANDOMIZE 

150  N=INT (90«RND) 

160  A=INT (N/4+.5) 

170  PRINT  N; TAB<5) ; 

180  FOR  B=l  TO  A 

190  PRINT  CHR*(128); 
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200  NEXT  B 

210  PRINT  : : 

220  NEXT  I 

230  GOTO  230 

2A0  END 

How  do  you  print  a  list  of  items  in  more  than 
two  columns? 

As  you  know,  the  comma  in  PRINT  statements 
prints  items  in  two  columns — items  start  either  in 
the  first  print  position  or  the  center  position.  To 
get  three  columns  or  more,  use  the  TAB  function. 
TAB  works  like  the  tab  key  on  a  typewriter.  You 
may  specify  which  column  to  start  printing. 
TAB{7)  would  start  the  next  print  item  in  the 
seventh  print  column.  Here's  a  sample  that  types 
three  columns  of  names. 


100 

110 

120 
130 
140 
150 
160 
170 

180 


CALL  CLEAR 

READ  L$,M$,N* 

IF  L*="3"  THEN  180 

PRINT  L*; TAB( 10> ;M*;TAB( 19) ; N* 

SOTO  110 

MIKE, BOB, DICK, RICH 
JIM, JERRY, MARY, PAULA 
CHRIS,KEVIN,KATHY,KIRK, 3,3 


DATA 
DATA 
DATA 

END 


How  can  you  print  a  screen  without  seeing  the 
scrolling? 

Some  people  don't  like  to  see  scrolling  as  they 
print.  Messages  on  the  TI  are  always  printed  on 
the  twenty-fourth  row  then  moved  upward.  To 
block  this  motion,  change  the  screen  to  black 
first  (because  the  printing  is  black),  print  the 
messages,  then  change  the  screen  back  to  a  dif- 
ferent color  so  you  can  read  the  printing. 

100  CALL  CLEAR 

110  CALL  SCREEN(2) 

120  PRINT  "THIS  IS  AN  EXAMPLE" 

130  PRINT  ::"TD  SEE  A  SCREEN" 

140  PRINT  : : "ALL  AT  ONCE."::::: 

150  CALL  SCREEN(4) 

160  GOTO  160 

How  can  you  print  what  is  on  the  screen  to  the 
printer? 

I'm  sorry,  but  I  don't  know  how  to  do  a  screen 
dump  of  graphics  because  none  of  the  printers  I 
have  right  now  has  the  graphics  capabilities.  You 
will  need  to  look  at  your  own  brand  printer  man- 
ual to  see  how  to  use  the  dot-addressable  graph- 
ics. If  you  have  a  screen  of  printing,  however, 
with  regular  printed  symbols,  you  can  use  the 
following  procedure.  The  character  in  each  row 
and  column  is  determined,  then  that  character  is 
printed  on  the  printer.  You  may  need  to  change 
the  OPEN  statement  in  line  100  to  suit  your 
particular  printer  configuration. 

100  OPEN  #1 : "RS232. BA=600" 

110  FOR  R0W=1  TO  24 

120  FOR  C0L=3  TO  30 

130  CALL  6CHAR (ROW,CaL,G) 


140 
150 
160 
170 
180 
190 


PRINT  #l! 
NEXT  COL 
PRINT  #1 
NEXT  ROW 
CLOSE  #1 
END 


CHR$<G) 


If  you  want  everything  you  are  printing  to 
go  both  to  the  screen  and  to  the  printer,  use  both 
a  PRINT  statement  and  a  PRINT  #1  statement 
for  items  printed. 


100 
1 10 

120 
130 
140 
150 
160 
170 
180 


OPEN  #1  :  '•RS232.  BA  =  600" 

CALL  CLEAR 

PRINT  #1:CHR*(12) 
"HELLO" 
#1  :  "HELLO" 
"ANY  MESSAGE" 
ttl  :  "ANY  MESSAGE" 
#1 


PRINT 
PRINT 
PRINT 
PRINT 
CLOSE 
END 


Line  120  above  goes  to  the  top  of  a  page. 
How  can  you  simulate  time  on  the  TI? 

If  you  need  an  exact  time,  use  the  CALL  SOUND 
statement  in  which  you  can  specify  an  exact 
duration  in  milliseconds.  If  you  don't  want  to 
hear  the  sound,  use  a  high  frequency  and  the 
softest  volume. 

100  PRINT  "START" 

110  CALL  SOUND ( 1000, 9999, 30) 

120  CALL  SOUND ( 1 , 9999, 30) 

130  PRINT  "END" 

140  END 

Line  120  is  necessary  to  end  the  first  sound. 
If  you  want  to  time  someone  as  they  are 
pressing  keys  to  move  or  are  answering  a  ques- 
tion, use  a  counter  in  your  CALL  KEY  loop.  You 
can't  relate  this  counter  to  an  exact  time  because 
in  each  program  it  will  be  different — depending 
on  how  you  do  the  programming,  how  long  your 
program  is,  and  how  full  the  memory  is.  How- 
ever, once  you  have  your  program  working,  you 
can  print  the  counter  value  and  use  a  stopwatch 
to  figure  out  a  formula  that  relates  the  actual 
time  to  the  counter  value.  ("Type-ette  Timer"  in 
my  Programmer's  Reference  Guide  to  the  TI-99/4A 
from  COMPUTE!  Books  uses  this  technique  to 
time  how  fast  you  can  type  sentences.)  Here  is  a 
sample: 

100  T=0 

110  CALL  KEY(0,K,S) 

120  T=T+1 

130  IF  S< 1  THEN  110 

140  PRINT  T 

150  GOTO  100 

160  END 

The  faster  you  press  a  key,  the  lower  the  value 
for  T  will  be.  The  longer,  you  wait,  the  more 
times  the  computer  will  go  through  the  loop  and 
increment  T. 
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Other  computers  use  PRINT  AT;  how  can  we 
doit? 

In  TI  Extended  BASIC  you  can  specify  a  row  and 
column  to  begin  printing  an  item.  However,  we 
don't  have  that  feature  in  regular  console  BASIC 
on  the  TI,  There  are  several  ways  to  accomplish 
this,  though  they're  slower  than  regular  printing. 
First,  you  can  use  the  regular  PRINT  statement, 
perhaps  with  the  TAB  function,  and  then  use  co- 
lons to  move  the  message  up  to  the  proper  row. 
PRINT  TAB(9);"START  PRINTING":::::: 

The  main  problem  with  this  method  is  that  it 
scrolls  the  screen.  If  I  am  labeling  graphics,  1  do 
all  the  printing  first,  then  use  CALL  HCHAR  and 
CALL  VCHAR  to  put  up  the  graphics. 

Another  method  is  to  treat  the  letters  in  the 
printed  message  as  graphics  characters,  and  use 
CALL  HCHAR  to  specify  the  row  and  column  to 
place  the  letters  on  the  screen.  Here's  a  general- 
purpose  subroutine  that  you  can  use.  M$  is  the 
message  you  want  printed,  R  is  the  row,  and  C  is 
the  column  you  want  the  message  to  start  in. 

300  FOR  L=l  TO  LEN<M*) 

310  CALL  HCHAR CR, C-l+L, ASC <SEG« (M4, 

L,  1)  )  ) 
320  NEXT  L 
330  RETURN 

Before  you  call  the  subroutine  with  a  GO  SUB, 
specify  a  row  R  and  a  column  C  and  the  mes- 
sage M$: 

900  M*="TEST  PRINTINB" 

910  R=6 

920  C=12 

930  GOSUB  300 

How  can  I  put  a  code  in  my  program? 

I  have  had  lots  of  young  people  ask  me  how 
they  can  write  a  program  so  that  whoever  runs  it 
must  enter  a  code  before  the  program  continues — 
they  don't  want  their  brothers  and  sisters  using 
their  program.  The  general  idea  is  that  you  put  a 
code  name  in  the  program  as  a  string  variable. 
Next,  use  INPUT  for  the  user  who  is  running  the 
program  to  type  in  the  code.  Now  compare  the 
INPUT  value  with  the  code  to  see  whether  to 
continue  or  not. 

100  CALL  CLEAR 

110  CODE*="RANDY" 

120  INPUT  "ENTER  CODE  NAME:   " : A* 

130  IF  A«=CODE«  THEN  160 

140  PRINT  :; "SORRY,  INVALID  CODE." 

150  STOP 

160  REM  PROGRAM  CONTINUES 

The  only  problem  with  specifying  the  code 
in  line  110  is  that  anyone  can  load  the  program, 
then  LIST  it  to  find  out  what  the  code  name  is. 
One  method  I  use  so  people  can't  read  the  code 
name  is  to  hold  down  the  CTRL  key  (key  with 


the  red  dot)  while  you  type  your  code  message. 
Line  110  will  now  look  like  this: 
110  CODE$=" 

or  you  may  get  some  funny-looking  graphics 
characters  between  the  quotes.  Now  when  some- 
one lists  your  program,  they  can't  tell  what  the 
code  name  is.  When  you  run  the  program,  be 
sure  to  hold  the  CTRL  key  down  when  you  IN- 
PUT the  code  name,  and  it  will  match  the  code 
in  the  program. 

A  Couple  Of  Warnings 

Always  use  the  SHIFT  key  on  the  left  side  of  the 
keyboard  to  type  the  plus  sign.  You  don't  want 
to  go  for  the  right  SHIFT  key  and  accidentally  hit 
the  FCTN  key — and  quW. 

Do  HOf  use  TI  Extended  BASIC  to  run  regu- 
lar TI  BASIC  programs  because  they  may  not  run 
properly.  One  reason  is  the  double  colon  used  in 
PRINT  statements,  and  another  reason  is  that  I 
often  use  graphics  in  character  sets  15  and  16, 
which  are  not  available  in  Extended  BASIC. 

If  you  have  a  disk  drive  attached  to  your 
computer,  the  disk  uses  up  some  memory.  For 
any  of  my  published  programs,  type  in  CALL 
FILES(l)  and  press  ENTER,  then  type  NEW  and 
press  ENTER,  then  proceed  normally  (load  a  pro- 
gram or  start  typing  a  program).  This  procedure 
clears  about  1000  bytes  of  memory  so  a  program 
can  fit. 

Until  Next  Time  ... 

I  hope  these  ideas  help  you  in  your  program- 
ming. Your  computer  can  be  a  lot  of  fun.  Part  of 
the  joy  of  programming  is  getting  that  machine 
to  do  what  you  want  it  to  do.  As  I  continue  these 
columns  I  hope  to  present  a  variety  of  programs 
so  you  can  see  that  this  computer  is  really  quite 
versatile.  Your  suggestions  and  letters  are  always 
welcome.  © 


Use  the  card 

in  the  bock 

of  this  magazine 

to  order  your 

COMPUTE! 
Books 
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Programming  64  Sound 


Part  2 


John  Michael  Lone 


Last  month  in  Part  1,  we  discussed  sound  and  music 
in  general.  This  month  we  examine  some  techniques 
for  programming  more  complicated  music  using  the 
'64's  SID  chip. 


The  control  register  is  the  most  complex  register 
in  the  chip.  Each  of  the  eight  bits  in  this  register 
has  a  different  function.  Dealing  with  individual 
bits  within  a  one-byte  register  is  often  a  problem 
for  BASIC  programmers.  One  very  easy  way  to 
approach  the  problem  is  to  use  the  following: 

170  B(0)=1 

180  B(1)=0 

190  B{2)=1 

200  B(3)=0 

210  B{4)=0 

220  B(5)=0 

230  B(6)=0 

240  B(7)=l 

250  FOR  1=0  TO  7 

260  Q=Q+B(l)*2Tl 

270  NEXT  I: POKE  S+4,Q 

This  is  not  efficient  programming,  but  by  de- 
fining the  bits  we  want  (that  is,  B(I)  where  1=  the 
bit  number)  in  terms  of  a  1  and  those  we  don't 
want  in  terms  of  a  0,  this  segment  will  work.  It 
will  be  somewhat  slow  and  cannot  be  used  in  a 
loop  that  must  execute  quickly,  which  is  usually 
the  case  when  doing  musical  programming. 

A  quicker  method  is  to  think  of  the  bits  in 
terms  of  their  value  in  an  eight-bit  binary  num- 
ber. Bit  0  has  a  value  of  1,  bit  1  =  2,  bit  2  =  4,  bit 
3  =  8,  bit  4  =  16,  bit  5=32,  bit  6  =  64,  and  bit 
7  =  128,  In  the  case  above,  we  want  to  set  bits  0, 
2,  and  7  on,  so  we  simply  add  their  values: 
1+4  +  128  =  133,  Simply  POKE  133  into  the  reg- 
ister to  set  those  bits.  It's  much  simpler,  but  re- 
quires you  to  add  up  the  bit  values  before 
writing  the  program,  so  when  you  look  back  on 
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the  program  one  month  later  you  may  not  have 
the  slightest  idea  why  you  chose  133. 

The  first  bit  of  the  control  register,  bit  0,  acts 
as  the  gate  to  turn  the  sound  on  and  off. 
Remember  that  when  the  gate  is  opened  (when 
bit  0  is  set  to  1),  the  attack  phase  of  the  volume 
envelope  begins.  When  the  gate  is  closed  (bit  0  is 
set  to  0),  the  release  phase  of  the  volume  en- 
velope is  triggered.  If  the  gate  is  closed  pre- 
maturely, the  sustain,  decay,  and  even  a  portion 
of  the  attack  phase  may  be  omitted.  Opening  and 
closing  the  gate  is  actually  very  easy.  Just 
remember  that  POKEing  an  odd  value  in  register 
4  turns  the  gate  on  and  that  POKEing  an  even 
value  into  the  register  turns  the  gate  off. 

Watch  The  Timing 

Be  careful  of  turning  the  gate  off  by  POKEing 
zero  into  the  register.  That  will  also  clear  the 
waveform  bits  (which  we'll  discuss  in  a  second) 
and  will  result  in  your  volume  envelope  having 
no  release  phase. 

The  next  bit,  bit  1,  is  the  sync  bit.  If  this  bit 
is  on,  the  output  from  voice  1  will  be  syn- 
chronized with  the  output  from  voice  3,  Sync  in 
this  case  means  that  the  output  of  voice  1  will  be 
replaced  with  a  logical  AND  of  the  output  of 
voice  1  and  voice  3,  Another  way  to  think  of  it  is 
that  voice  1  is  turned  on  and  off  with  the  fre- 
quency of  voice  3.  In  order  for  this  bit  to  have 
any  effect,  oscillator  three  (voice  3)  must  be  set 
to  some  frequency  less  than  voice  1.  The  best 
way  to  understand  this  effect  is  to  listen  to  it. 
"Laser"  (Program  4)  contains  a  demonstration 
using  the  sync  bit.  When  using  sync,  the  lower 
frequency  will  predominate.  The  effect  works 
best  when  the  lower  frequency  is  Via  to  Vi  of  the 
higher. 

The  sync  bit  has  a  slightly  different  effect  in 
the  other  two  voices.  In  voice  2  it  produces  a 


sync  of  voice  2  with  voice  1,  and  in  voice  3  it 
produces  a  sync  of  voice  3  with  voice  2. 

The  next  bit,  bit  2,  is  the  ring  modulation  bit. 
When  this  bit  is  set  on,  it  produces  nonharmonic 
overtones  that  sound  like  a  bell.  In  order  for  this 
effect  to  take  place,  the  triangular  waveform 
must  be  selected  for  voice  1,  and  voice  3  must 
have  a  frequency  other  than  zero. 

Ring  modulation  in  the  other  voices  works 
like  the  sync  bit;  that  is,  for  voice  2  to  be  ring 
modulated,  voice  1  must  have  a  nonzero  fre- 
quency. For  voice  3,  voice  2  must  be  nonzero.  In 
all  cases  the  triangular  waveform  must  be  se- 
lected for  the  affected  voice. 

Bit  3  in  the  control  register  is  the  test  bit. 
Setting  the  test  bit  to  one  will  turn  off  the  sound 
generator.  This  technique  will  generally  be  used 
only  by  machine  language  programmers. 

Bits  4-7  are  the  waveform  bits.  Turning  on 
bit  4  will  select  the  triangular  waveform;  bit  5 
will  select  the  sawtooth;  bit  6,  the  rectangular 
pulse;  and  bit  7,  white  noise  (the  hissing  sound 
that  you  hear  between  stations  on  a  radio). 

At  this  point  you  must  be  asking  yourself 
"What  happens  if  more  than  one  bit  is  selected?" 
The  answer  is  that  the  two  (or  more)  waveforms 
will  be  ANDed  together  (a  logical  AND  will  be 
done  on  the  waveforms).  Commodore  cautions 
that  selecting  more  than  one  waveform  while 
using  the  white  noise  waveform  could  cause  the 
oscillator  to  go  silent,  so  don't  combine  wave- 
forms using  the  white  noise  waveform.  Even 
while  avoiding  the  white  noise  waveform,  it  is 
still  possible  to  generate  four  more  waveform 
shapes  using  combinations  of  the  sawtooth, 
triangular,  and  rectangular  pulse  waveforms. 
However,  the  volume  declines  significantly  when 
combining  waveforms. 

Register  5  contains  the  attack  and  decay  val- 
ues for  the  sound  envelope.  The  four-bit  attack 
value  is  held  in  bits  7-4.  The  four-bit  decay 
value  is  held  in  bits  3-0.  The  values  can  be 
loaded  like  this: 

300  A=13:D=5;  REM  ATTACK=13 , DECAY=5 
310  POKE  S+5,16*A+D 

Register  6  contains  the  sustain  level  and  the 
release  value.  As  above,  the  sustain  level  is  held 
in  bits  7-4,  and  the  release  value  in  bits  3-0. 
Program  them  in  the  following  manner: 

320    SU=13:R=4:    REM    SUSTAIN=13  ,RELEASE=>4 
330    POKE    S+6,16*SU+R 

Now  we've  completely  covered  the  seven 
register  groups  and  shown  how  to  load  them. 
"Twiddle"  (Program  1)  allows  you  to  explore  all 
possible  combinations  using  these  seven  reg- 
isters. The  program  allows  you  to  set  and  change 
any  of  the  values  and  then  listen  to  an  eight-note 


scale  governed  by  those  values.  If  you  can  sit 
down  and  play  with  the  program  for  a  couple  of 
hours,  you'll  gain  a  good  understanding  of  how 
changing  SID  parameters  affects  a  sound.  The 
program  is  also  useful  for  demonstrating  how  to 
play  a  tune  within  a  basic  program. 

From  Sound  To  Music 

To  play  actual  music,  you  generally  write  a  pro- 
gram which  will  load  all  the  parameters  except 
the  waveform  and  the  frequency.  At  this  point 
you  select  the  note  to  be  played  and  POKE  the 
appropriate  values  into  the  frequency  registers. 
Then  you  POKE  the  waveform  value  plus  one 
(16  +  1  =  17  for  triangular,  33  for  sawtooth,  65  for 
the  rectangular  pulse,  and  129  for  white  noise) 
into  register  4  (the  control  register).  Adding  a  1 
causes  the  gate  bit  (bit  0)  to  be  turned  on  and  the 
tone  begins.  The  program  waits  a  certain  period 
of  time  and  then  POKEs  the  waveform  value  (16, 
32,  64,  or  128)  into  register  4.  By  POKEing  an 
even  number  into  the  register  we  turn  the  gate 
off,  and  the  note  begins  its  release  phase  and 
gradually  dies  out  (according  to  the  release  value 
that  you've  set). 

A  simple  way  to  time  the  note  is  to  use  a  de- 
lay loop.  An  empty  loop  (like  the  one  below)  will 
execute  1000  cycles  in  just  about  one  second. 

400  FOR  1=1  TO  1000:NEXT  I 

Therefore,  each  cycle  is  just  about  1/1000  second 
(or  a  millisecond).  To  turn  the  note  on  and  off, 
the  program  line  will  look  like  this: 

400  POKE  S+4,17:FOR  1=1  TO  250: 
NEXT:FOKES-F4,16 

The  above  program  line  will  play  a  note  for 
about  one  quarter  of  a  second. 

This  technique  works  well  for  a  single  voice, 
but  it  may  not  work  at  all  for  more  than  one 
voice.  The  problem  is  that  while  the  computer  is 
timing  the  duration  of  one  note,  it  cannot  be 
separately  timing  voices  2  and  3.  We  could  fill 
the  empty  loop  with  timing  routines  for  voices  2 
and  3,  but  that  would  change  the  execution  time 
for  the  loop  and  throw  the  timing  off. 

A  second  technique  is  to  use  the  internal 
timer  of  the  Commodore  64  through  the  use  of 
the  variable  Tl.  The  variable  TI  is  updated  auto- 
matically on  the  Commodore  64  and  increases  by 
a  value  of  one  every  '/6o  second.  We  can  use  this 
timer  to  time  the  duration  of  our  notes: 

500  T0=TI:  REM  INITIALIZE  THE  VARIABLE  "T 

0" 
510  T0=T0+D:  REM  INCREASE  "T0"  BY  DURATIO 

N  OF  THE  FIRST  NOTE  -  D 
520  IF  T0<=TI  THEN  GOSUB  1100 i  REM  CHECK 

{space) IF  THE  TIME  IS  UP 
525  REM  IF  SO  SUBROUTINE  1100  WILL  CHANGE 

NOTES 
530  GOTO  520:  REM  IF  NOT  CHECK  TIME  AGAIN 
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The  key  to  using  this  routine  is  to  make  sure 
that  the  subroutine  executes  quickly,  at  least 
while  using  multiple  voices.  "Tune"  (Program  2) 
illustrates  this  technique  using  all  three  voices. 
But  this  method  isn't  problem-free  either.  We 
want  to  reproduce  the  rhythm  of  the  original 
tune  as  accurately  as  possible.  It's  physically 
impossible  to  change  the  frequency  of  all  three 
voices  at  once.  Using  BASIC,  it's  somewhat  diffi- 
cult to  change  all  three  voices  in  less  than  Ve  sec- 
ond. For  that  reason,  we  split  all  the  frequencies 
into  the  higher  and  lower  order  bytes  before  the 
tune  begins.  We  can  then  change  the  frequency 
of  all  three  voices  in  about  Vio  second.  For  most 
tunes  that  will  be  satisfactory.  However,  for  a 
fast  tempo,  you  might  have  to  omit  the  second  or 
third  voice  in  order  to  maintain  the  rapid 
changes  of  the  first  voice. 

Sound  Effects 

Now,  let's  briefly  explore  the  sound  of  a  laser 
firing,  or  an  explosion,  siren,  or  any  other  sound 
we  need.  How  can  we  accomplish  it? 

There  is  no  direct  way.  The  best  approach  is 
trial  and  error.  Listen  to  the  sound  carefully. 
Most  sounds  in  nature  cannot  be  duplicated 
simply  by  selecting  the  right  waveform  and  en- 
velope. Generally,  the  frequency  is  also  actively 
changing  during  the  sound's  life.  While  you  lis- 
ten to  (or  think  about)  the  sound  you  want,  con- 
sider what  is  happening  to  the  frequency.  Is  it 
rising  or  falling?  How  quickly? 

Also  consider  the  volume.  Many  volume  en- 
velopes cannot  be  duplicated  using  the 
attack/decay/sustain/release  envelope  on  the 
Commodore  SID.  You  will  often  have  to  change 
the  volume  level  through  program  control,  using 
the  volume  register  (register  24)  on  the  SID. 

Programs  3  and  4,  "Blast-off"  and  "Laser," 
illustrate  one  approach.  In  Blast-off,  both  the  fre- 
quency and  volume  are  modulated  by  the  pro- 
gram. Laser  demonstrates  the  sync  feature  and 
modulates  the  frequency  to  produce  the  laser 
sound.  Both  programs  were  written  after  much 
trial  and  error. 

Many  authors,  when  converting  programs  to 
the  64,  simply  drop  the  sound  effects  or  stop  at  a 
sound  which  is  only  vaguely  like  the  one  they 
want.  Be  persistent;  the  64  can  accurately  pro- 
duce almost  any  sound.  As  you  gain  experience, 
you  will  find  that  the  trial  and  error  phase  will 
decrease  significantly. 

Twiddle  illustrates  the  basic  methods  of 
loading  the  SID  registers  and  lets  you  experiment 
by  changing  the  waveform  and  ADSR  envelope 
while  listening  to  the  musical  scale. 

Tune  uses  the  three  voices  to  play  an  En- 
glish folk  tune.  Don't  be  discouraged  by  the  long 
list  of  DATA  statements.  Voice  1  repeats  the 
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same  statements  four  times,  and  there  is  consid- 
erable repetition  in  voices  2  and  3.  Once  you've 
typed  in  the  few  basic  lines,  you  can  simply 
change  the  line  numbers  with  the  screen  editor 
to  produce  the  remainder  of  the  data  statements. 
Tune  can  be  used  to  produce  any  melody  by 
changing  the  values  in  the  DATA  statements.  Each 
note  is  represented  by  a  pair  of  values.  The  first 
represents  the  duration  of  the  note  (in  sixtieths  of 
a  second).  A  value  of  30-40  is  appropriate  for  a 
quarter  note.  The  second  value  is  the  frequency 
of  the  note.  Appendix  E  in  the  Commodore  64 
Programmer's  Reference  Guide  offers  a  good, 
simple  frequency  table.  Below  are  the  values  for 
the  12-semitone  scale  starting  at  middle  C, 


c 

-4291 

C# 

-4547 

D 

-4817 

D# 

-5103 

E- 

-5407 

F- 

5728 

F#- 

6069 

G 

-6430 

G# 

-6812 

A 

-7217 

A# 

-7647 

B  - 

-8101 

Notes  for  other  octaves  can  be  calculated  by 
doubling  or  halving  these  values,  depending  upon 
whether  you're  going  one  octave  up  (doubling) 
or  one  octave  down  (halving). 

It  is  useful  to  convert  one  measure  of  music 
to  one  DATA  statement  if  you  can.  This  makes  it 
easier  to  match  the  voices. 

Voice  1  is  the  sound  of  a  flute,  voice  2  is  a 
mandolin,  and  voice  3  is  a  guitar.  Blast-off  and 
Laser  are  supposed  to  produce  the  sound  of  their 
titles.  They  are  pretty  straightforward. 

Program  1 :  Twiddle 

Refer  to  the  "Automatic  Proofreader"  arlicle  before  typing  this 
program  in. 

5  S=54272  :rem  201 

7  DIM  A(15),D(15)  ; rem  48 

10  FORL=STOS+24:POKEL,0:NEXT  : rem  53 

15  GOSUB  1000  -rem  167 

17  GOSUB  1100  -rem  170 

18  GOSUB  1200  -rem  172 
20  PRINT"{CLR}";TAB(5); "TOUCH  W  FOR  WAVEF 

ORM"  :rern  5 

30  PRINT  TAB{5) "TOUCH  A  FOR  ATTACK  RATE" 

trem  32 
40  PRINT  TAB(5) "TOUCH  S  FOR  SUSTAIN  LEVEL 

:rera  238 
45  PRINT  TAB(5)"T0UCH  T  FOR  SUSTAIN  TIME" 

:rem  171 
50  PRINT  TAB(5)"T0UCH  R  FOR  RELEASE" 

:rem  80 
60  PRINT  TAB(5) "TOUCH  D  FOR  DECAY" 

:rem  168 
70  PRINT  TAB(5) "TOUCH  P  FOR  PULSE  WIDTH" 

:rem  88 
72  PRINT  TAB(5)"T0UCH  B  TO  SET  DEAD  TIME" 

:rem  40 

75  PRINT  TAB(5)"T0UCH  -t-  OR  -  FOR  FREQUENC 

Y  CHANGE"  irem  85 

80  GET  A$:IP  A$=""THEN80  : rem  243 

82  IF  aS="W"THEN  200  t rem  247 


84  IF  A?="A"  THEN  250  ; rem  232 

86  IF  A5="S"  THEN  300  s rem  248 

88  IF  A$="R"  THEN  350  : rem  254 

90  IF  A$="D"  THEN  400  :  rem  229 

92  IF  A$="P"  THEN  450  i rem  248 

94  IF  A5="T"  THEN  500  : rem  250 

96  IF  A$="+"  THEN  GOSUB  1400      : rem  131 

97  IF  A5="B"  THEN  550  : rem  240 

98  IF  A$="-"  THEN  GOSUB  1450  : rem  140 
100  REM  :rem  117 
105  POKE  S+24,15  : rem  59 
110  POKE  S+5,16*A+D  : rem  225 
120  POKE  S+6,16*SL+R  ; rem  79 
130  POKE  S+3,INT(P/256)  : rem  248 
140  POKE  S+2,P-256*INT(P/256)  : rem  60 
150  FOR  1=1  TO  8  :rem  15 
160  IFINT(F(I) )<=65536THENPOKE  S+1,INT(F( 

I)/256)  :rem  229 

170  POKE  S,F(I)-256*INT(F(I)/256)  : rem  2 
180  IFINT(FCI) ) <=65536THENPOKE  S+4,2t(W+3 

)+l  :rem  244 

185  F0RJ=1T0T:NEXT  :rem  173 

187  POKE  S+4,2T(W+3)  : rem  67 

188  F0RJ=1T0B:NEXT  : rem  158 
190  NEXT  I: GOTO  20  : rem  247 
200  PRINT "WAVEFORM  IS"f"  -  "?W  : rem  164 
202  PRINT "1=TRIANGLE"  : rem  41 
204  PRINT "2=SAWT00TH"  : rem  79 
206  PRINT"3=PULSE"  : rem  98 
208  PRINT"4=N0ISE"  ; rem  90 
210  INPUT"ENTER  WAVEFORM  (l-4)";W;rem  193 
215  IFW<1  ORW>4THEN210  s rem  23 
220  GOTO  100  :rem  94 
250  PRINT"ATTACK  RATE  IS";A  ; rem  100 
260  INPUT"ENTER  ATTACK  RATE  (0-15  )";A 

: rem  94 
265  IFA<0ORA>15THEN260  : rem  38 

270  GOTO  100  :rem  99 

300  PRINT "SUSTAIN  LEVEL  IS"jSL  : rem  121 
310  INPUT"ENTER  SUSTAIN  LEVEL  (0-15) ";SL 

; rem  115 
315  IFSL<0ORSL>15THEN310  i  rem  218 

320  GOTO  100  :rem  95 

350  PRINT"RELEASE  RATE  IS";R  :rem  191 
360  INPUT"ENTER  RELEASE  RATE  (0-15) "?R 

:rem  185 
365  IFR<0ORR>15THEN360  : rem  74 

370  GOTO  100  ;rem  100 

400  PRINT "DECAY  RATE  IS"rD  : rem  18 
410  INPUT"ENTER  DECAY  RATE  (0-15) "rD 

: rem  12 
415  IFD<0ORD>15THEN410  trem  38 

420  GOTO  100  :rem  96 

450  PRINT"PULSE  WIDTH  IS" ; 100*P/4095 

:rem  86 
460  INPUT"ENTER  PULSE  WIDTH  (0-100) ";P 

trem  191 
465  IFP<0ORP>100THEN460  : rem  115 

470  P=P*4095/100  :rem  52 

480  GOTO  100  :rem  102 

500  PRINT"SUSTAIN  TIME  IS" ; T; "MILLISECOND 
S"  : rem  2  36 

510  PRINT "MINIMUM  TIME  FOR  ATTACK/DECAY  C 
YCLE  IS; "  :rem  44 

515  PRINT  A(A)+D(D) ; "MILLISECONDS"  trem  4 
520  INPUT"ENTER  TIME  IN  MILLISECONDS" ; T 

trem  196 
530  GOTO  100  srem  98 

550  PRINT"DEAD  TIME  IS" ; B; "MILLISECONDS" 

:rem  198 


560  INPUT-INPUT  DEAD  TIME  IN  MILLISECONDS 
";B  srem  214 

570  GOTO  100  trem  102 

1000  W=l tA=8 :D=6 : R=9  t SL=12; P=2000  tT=302 

trem  203 

1010  RETURN  trem  162 

1100  F0RI=lT08:READF{I)iNEXT      trem  234 

1110  DATA  4291,4817,5407,5728,6430,7217,8 

101,8538  trem  155 

1120  RETURN  trem  164 

1200  FOR  I=0TO15tREAD  A{ I ) t D ( I )=3*A ( I ) tNE 

XT  trem  160 

1210  DATA  2,8,16,24,38,56,68,80,100,250,5 

00,800,1000,3000,5000,7000   trem  186 

1220  RETURN  trem  165 

1400  FOR  I=1T0  8:F(I)=F(I)*2tNEXT:RETURN 

trem  100 
1450  FOR  I=lT08:P(I)=F(I)/2!NEXTtRETURN 

:rem  110 


Program  2:  Tune 


Refer  to  the  "Automatic  Proofreader  article  before  typing  ttiis 
program  in. 

5  DIM  D(3,200),F(3,200),G(3,200)  trem  254 
10  3=54272  trem  245 

20  FORI=0TO24tPOKES+I,0iNEXT  trem  13 
30  FORI=lT03  trem  215 

40  J=l  trem  28 

50  READ  D(I, J) ,F(I,J) tREM  GET  FREQ  &  DURA 
TION  trem  15 

55  G(I,J)=INT(F(I,J)/256):F(I,J)=F(I,J)-2 
56*G(I,J)  trem  202 

60  IF  F(I,J)=0  AND  D(I,J)=0  THEN  90 

trem  228 
70  J=J+ltGOTO  50  trem  108 

90  PRINT  "VOICE"; I;"  "jJ;"  NOTES"  trem  64 
100  NEXT  I  srem  25 

110  POKES+24,15  srem  55 

200  REM  SET  VOICE  ONE  trem  186 

210  Wl=16tREM  TRIANGLE  WAVEFORM  trem  154 
220  POKES+5, 6*16+0 tREM  ATTACK=6 , DECAY=0 

trem  12 
230  POKES+6, 10*16+0 s REM  SUSTAIN=10 , RELEAS 

E=0  trem  110 

300  REM  SET  VOICE  TWO  trem  211 

310  W2=32:REM  SAWTOOTH  WAVEFORM  trem  189 
320  POKES+12,0*16+9tREM  ATTACK=0 , DECAy=9 

trem  65 
330  POKES+13,00*15+0sREM  SUSTAIN=00 , RELEA 

SE=00  trem  203 

400  REM  SET  VOICE  THREE  trem  82 

410  W3=64tREM  RECTANGULAR  WAVE  trem  79 
420  POKES+17, 3iREM  DUTY  CYCLE  20% trem  101 
430  POKES+19,3*16+10tREM  ATTACK=3, DECAY=1 

0  trem  160 

440  POKES+20,0*16+0sREM  SUSTAIN=0 i RELEASE 

=0  trem  104 

500  J=0tK=0:L=0tTl=TItT2=TltT3=Tl:rem  207 
600  IF  T1=<TI  THEN  GOSUB  1100  trem  49 
610  IF  T2=<TI  THEN  GOSUB  1200  trem  52 
620  IF  T3=<TI  THEN  GOSUB  1300  trem  55 
630  GOTO  600  trem  104 

1000  ON  I  GOTO  1100,1200,1300  trem  129 
1100  J=J+ltTl=Tl+D(l,J)  trem  215 

1115  IFD(1,J)=0  THEN  POKES+4, Wl s POKES+11 , 
W2sPOKES+18,W3tEND  trem  217 

1117  POKES+4, Wl  trem  95 

1120  POKES,F(l,J):POKES+l,G(l,J)  trem  51 
1140  P0KES+4,Wl+lt RETURN  trem  209 

1200  K=K+liT2=T2+D(2,K)  srem  222 
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1210  POKE  S+"11,W2  :rem  136 

1220  POKE  S+7,F(2,K) :POKES+8,G(2,K) 

:rem  161 
1240  P0KES+11,W2+1: RETURN  : rem  1 

1300  L=L+1:T3=T3+D{3,L)  irem  229 

1310  POKES+18,W3  irem  145 

1320  POKES  +  14,F(3,L) : POKES+15 , G( 3  ,  L) 

:  rem  2 
1340  POKES+18,W3+l: RETURN  : rem  10 

2000  REM  NOTES  FOR  VOICE  ONE      : rem  110 
2010  DATA  30,4051  : rem  54 

2020  DATA  30,5407,30,4051,30,6069,30,4051 

I  rem  215 
2030  DATA  30,6430,30,6069,30,5407,30,4050 

:rem  218 
2040  DATA  30,5407,30,4050,30,6069,30,4050 

5  rem  215 
2050  DATA30, 6430, 30, 7217, 30, 8101, 30, 4050 

: rem  210 
2060  DATA30, 5407, 30, 4050, 30, 6069,  30,4050 

:rem  217 
2070  DATA30,6430, 30, 6069, 30,  5407,  30,4050 

:rem  222 
2080  DATA30,5407, 30,4050,30,6069,30,4817 

:rem  230 
2090  DATA60, 5407, 30, 5407, 30,4050  : rem  86 
2120  DATA  30,5407,30,4051,30,6069,30,4051 

; rem  216 
2130  DATA  30,6430,30,6069,30,5407,30,4050 

:rem  219 
2140  DATA  30,5407,30,4050,30,6069,30,4050 

:rem  216 
2150  DATA30,6430, 30, 7217,  30, 8101,  30,  4050 

;rem  211 
2160  DATA  30,5407,30,4050,30,6069,30,4050 

trem  218 
2170  DATA30,6430, 30,6069,  30, 5407, 30, 4050 

: rem  22  3 
2100  DATA30, 5407, 30, 4050, 30, 6069,  30, 4817 

; rem  231 
2190  DATA120,5407  ; rem  117 

2220  DATA  30,5407,30,4051,30,6069,30,4051 

: rem  217 
2230  DATA  30,6430,30,6069,30,5407,30,4050 

:rem  220 
2240  DATA  30,5407,30,4050,30,6069,30,4050 

:rem  217 
2250  DATA30, 6430, 30, 7217, 30, 8101, 30,  4050 

:rem  212 
2260  DATA30, 5407, 30, 4050,  30, 6069, 30, 4050 

:rem  219 
2270  DATA30, 6430, 30, 6069, 30, 5407, 30,  4050 

:rem  224 
2280  DATA30, 5407, 30, 4050,  30, 6069,  30,  4817 

:rem  232 
2290  DATA120,5407  : rem  118 

2320  DATA  30,5407,30,4051,30,6069,30,4051 

:rem  218 
2330  DATA  30,6430,30,6069,30,5407,30,4050 

:rem  221 
2340  DATA  30,5407,30,4050,30,6069,30,4050 

;rem  218 
2350  DATA30, 6430, 30, 72 17,  30, 8101, 30,  4050 

:rem  213 
2360  DATA30, 5407, 30, 4050,  30,6069,30,4050 

;rem  220 
2  370  DATA30, 6430, 30, 6069, 30,5407,30,4050 

:rem  225 
2  380  DATA30, 5407, 30, 4050, 30, 6069, 30, 4817 

! rem  233 


2390  DATA120,5407 

2900  DATA  0,0 

3000  REM  NOTES  FOR  VOICE  TWO 

3010  DATA990,0 

3020  DATA60, 2703, 60, 2408 

3030  DATA30, 2145, 30, 2025,60,2145 

3040  DATA60, 2025,60, 1804 

3050  DATA30, 1607, 30, 1517, 60, 1351 

3060  DATA60, 2703,60, 2408 

3070  DATA30, 2145, 30, 2025, 60, 2145 

3080  DATA60, 2025,60, 1804 

3090  DATA30, 1607, 30, 1517, 60, 1351 

3120  DATA60, 2  703,60, 2408 

3130  DATA30, 2145, 30, 2025, 60, 2145 

3140  DATA60, 2025, 60, 1804 

3150  DATA30, 1607, 30, 1517, 60, 1351 

3160  DATA60, 2703, 60, 2408 

3170  DATA30, 2145, 30, 2025, 60, 2145 

3180  DATA60, 2025, 60, 1804 

3190  DATA30, 1607, 30, 1517, 60, 1351 

3220  DATA60, 2703, 60, 2408 

3230  DATA30, 2145, 30, 2025, 60, 2145 

3240  DATA60, 2025,60, 1804 

3250  DATA30, 1607, 30, 1517,60, 1351 

3260  DATA60, 2703, 60, 2408 

3270  DATA30, 2145, 30, 2025, 60, 2145 

3280  DATA60, 2025,60, 1804 

3290  DATA30, 1607, 30, 1517,60, 1351 

3900  DATA  0,0 

4000  REM  NOTES  FOR  VOICE  THREE 

4010  DATA1950,0 

4020  DATA  60,2703,60,2408 

4030  DATA  30,2703,15,2703,15,2703 


4040  DATA  30,2703,30,2703,30,3034 

4050 

4060 

4070 


DATA  15,3215,15,3215,15,3215 

,60,3034 

DATA  45,4050,15,3608,45,4050 


DATA  45,4050,15,3608,15,4050 

,15,3215,15,3034 
4080  DATA  60,2703,60,2408 
4090  DATA  30,2703,15,2703,15,2703 

4100  DATA  30,2703,30,2703,30,3034 

4110  DATA  15,3215,15,3215,15,3215 

,60,3034 
4120  DATA  45,4050,15,3608,45,4050 

4130  DATA  45,4050,15,3608,15,4050 

,15,3215,15,3034 
4140  DATA  60,2703,60,2408 
4150  DATA  30,,2703,15,2703,15,2703 

4160  DATA  60,4050,60,4050 

4170  DATA  30,4050,15,4050,15,4050 

4900  DATA  800,0,0,0 


:rem  119 
: rem  113 
:rem  135 
irem  220 
:rem  201 

: rem  73 
: rem  199 

; rem  80 
:rem  205 

:rem  77 
:rera  203 

:rem  84 
:rem  202 

: rem  74 
:rem  200 

:rem  81 
; rem  206 

:rem  78 
:rem  204 

: rem  85 
: rem  203 

:rem  75 
: rem  201 

:rem  82 
: rem  207 

srem  79 
: rem  205 

; rem  86 

srem  114 

:  rem  6 

; rem  10 
trem  202 
,60,2025 
:rem  215 
,30,3034 
:rem  206 
,15,3215 

:rem  99 
,15,3608 
:rem  234 
,15,3608 
:rem  249 
:rem  208 
,60,2025 
:rem  221 
,30,3034 
; rem  203 
,15,3215 

: rem  96 
,15,3608 
;rem  231 
,15,3608 
: rem  246 
:rem  205 
,60,2025 
:rem  218 
:rem  199 
,60,4050 
:rem  211 
:rem  147 


Program  3:  Blast-off 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in, 

10  S=54272  :rem  245 

20  FOR  I=STOS+24:POKEI,0:NEXT  : rem  48 

30  POKES+24,15  : rem  8 

40  FR=0500  :rem  254 
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50  A=0:D=0:SS=15:R=0  :rem  122 

60  W=128:P=1024  t rem  35 

70  POKES+l,INT(FR/256)  ; rem  17 

80  POKES, PR-256*INT(FR/256)         ; rem  66 
90  POKES+3, INT(P/256)  : rem  205 

100  POKES+2,P-256*INT(P/256)       : rem  56 
110  POKES+5, 16*A+D  : rem  225 

120  POKES+6,16*SS+R  : rem  86 

200  P0KES+4,W+1:REM  TURN  SOUND  ON: rem  223 
210  FORI=200TO1  STEP-1  :rem  0 

220  FR=FR+100:REM  INCREASE  FREQUENCY 

:rem  215 
222  IF  I<  45  THEN  POKES+24, l/3 : REM  NEAR  T 
HE  END  TURN  DOWN  THE  VOLUME    : rem  98 
225  F2=INTCFR/256) :F1=FR-256*F2   : rem  224 
230  POKES, F1:P0KES+1,F2  ;rem  118 

240  NEXT  I  :rem  30 

250  P0KES+4,W:REM  TURN  SOUND  OFF  :rem  198 


Program  4:  Laser 


Refer  to  the  "Automatic  Proofreader"  article  before  typing  ttiis 
program  in. 

10  S=54272  treiii  245 

20  FOR  I=STOS+24;POKEI,0:NEXT  rrem  48 

30  POKES+24, 143  :rem  58 

40  FR=50000  trem  46 

50  A=0:D=a:SS=15:R=08  jrem  186 

60  W=064:P=1024  : rem  34 

70  POKES+l,INT(FR/256)  : rem  17 

80  POKES, FR-256*INT(FK/256)  : rem  66 

90  POKES+3, INT(P/256)  srem  205 


Here  comes  the  new  generation  of  SM's 


program  series  for  the  64. 

The  iamous  programming  tool  with  powerful  basic  extentions 

like  merge,  find,  renumber,  dump,  trace,  enhanced 

floppy-monitor  (disc-doctor)  and  high  efftciont  machino-ianguagB 

monitor  with  built-in  assembler,  diassembter,  trace  and  lots 

of  more  helpful  features-really  a  golden  tool! 


PLACE  YOUR  CHECK  OR  MONEY  ORDER  NOW! 


SM  SOFTWARE  IMC.    252  Bethlehem  Pike    Colmar.  PA18915 


program  series  for  the  64. 


JhADREmea 

Your  personal  professronal  address-file-system.  Up  to  620 
addresses  per  disc  in  direct  access.  Including  5  extra  lines  lor 

individual  text/record.  Totally  menue-driven.  ^^^^^^*^ 

Pow/erlul  editing  and  back-up  facilities,     'rtfll-^  5^^ 

Several  hardcopv  features.  " 


PLACE  YOUR  CHECK  OR  MONEY  ORDER  NOW! 


SM  SOFTWARE  INC.    2B2  Bethlehem  Pike    Colmar.  PA1S91S 


100  POKES+2,P-256*INTCp/256)  : rem  56 

110  P0KES+5,16*A+D  :rein  225 

120  P0KES+6,16*SS+R  j rem  86 

130  POKES+1-5,75  srem  63 

155  POKES+4,W+3:REM  USING  W+3  TURNS  ON 

{2  SPACES} GATE  AND  SYNC  : rem  32 

160  P0RI=1T025  :rem  63 
170  POKES+15,120-4*I:REM{2  SPACES }DECREAS 

E  FREQ  VOICE  THREE  srem  180 

180  NEXT  I  srem  33 

185  P0KES-l-4,W  srem  2 


To  receive 

additional 

information 

from  advertisers 

in  this  issue, 

use  the  handy 

reader  service  cards 

in  the  bacl< 

of  the  magazine. 
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it' 


Applesoft 
Lister 


David  Dobrin 


"Applesoft  Lister"  will  give  you  more  readable  pro- 
gram listings,  along  with  printer-oriented  output, 
translated  control  characters,  and  indention  of  nested 
FOR-NEXT  loops. 


Would  you  like  your  Applesoft  programs  to  look 
like  this: 

10    REM    BASIC    LISTING   WITH   ftPPLESOFT    LIST 

20    HOME 

22  PRINT  "ONT  SCRfiM CGD EG] LG3 " 

30  FOR   J=0    TO    35 

31  VTPlB   2 

:    HTPlB  J+1 
40     PRINT  "  !=Te" 
50    NEXT 
G0  PRINT  "[G3 CG] :G]TH0T  IS  RLL" 

instead  of  this: 

10  REM   BASIC  LISTING  WITH  RPPLESPFT  LIST 

20  HOME 

22  PRINT  "ANT  SCRAM" 

30  FOR  J  =  0  TO  35 

31  VTAB  2:  HTAB  J+1 
40  PRINT  "  ;=;@" 

50   NEXT 

60       PRINT    "THAT    IS    ALL" 

Applesoft  programs  are  usually  very  difficult 
to  read.  The  standard  LIST  function  built  into 
Applesoft  is  unsophisticated,  having  only  the 
minimum  logic  necessary  to  list  programs.  Here's 
a  program  for  the  Apple  that  will  list  Applesoft 
programs  in  a  nicely  formatted  fashion.  Five  major 
features  distinguish  "Applesoft  Lister"  from  the 
standard  format: 
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•  There  is  intelligent  spacing  between 
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keywords,  variables,  and  operands. 

•  Multiple  statements  with  a  single  line 
number  are  listed  one  per  line. 

•  FOR-NEXT  constructs  are  nested. 

•  Output  is  oriented  for  a  printer.  This  listing 
will  not  simply  "wrap"  when  it  runs  out  of 
space  on  a  line. 

•  Control  characters  are  shown  with  printable 
characters. 

How  Applesoft  Lister  Works 

The  program  translates  the  Applesoft  intermediate 
language  (IL)  into  statement  numbers  and 
keywords.  The  keywords  are  taken  from  ROM  at 
$DODO.  If  this  program  is  to  be  used  with 
Applesoft  in  RAM,  this  value  must  be  changed. 

The  high  byte  of  the  keyword  table  address  is 
at  location  $812C.  The  low  byte  is  at  $8130. 

When  a  colon  (:)  is  encountered  in  the  text, 
the  lister  starts  a  new  line,  indenting  appropri- 
ately. No  action  is  taken  on  colons  inside  double 
quotes  or  REM  statements.  FORs  and  NEXTs  are 
observed  to  calculate  a  nest  level. 

If  you  would  like  to  change  the  indentation  of 
your  FOR-NEXT  constructs  or  multiple  state- 
ments you  can  change  the  value  at  location  32771 
with  the  POKE  command.  Putting  a  0  there  will 
turn  indenting  off,  a  3  will  indent  three  spaces 
per  nest  level,  a  10  will  indent  ten  spaces  per  nest 
level,  and  so  on. 

If  you  want  to  change  the  column  width, 
change  the  value  at  32772  with  the  POKE  com- 
mand. Putting  a  39  there  will  give  a  screen  width. 
You  can  also  use  80, 132,  or  whatever  your  printer 
width  is. 


These  POKEs  can,  of  course,  be  made  per- 
manent by  saving  the  program  to  disk  or  tape 
after  changing. 

Control  characters  are  printed  inside  brackets; 
for  example,  CTRL-G  appears  as  [G]. 

Loading  The  Program  Into  Your  Apple 

The  lister  program  is  written  entirely  in  machine 
language.  Program  1  is  a  BASIC  program  which 
READs  the  machine  language  from  DATA  state- 
ments and  POKEs  it  into  memory. 

The  program  was  assembled  to  load  at  loca- 
tion $8000.  If  your  machine  has  less  than  48K,  the 
program  will  have  to  be  relocated. 

If  you  wish  to  enter  the  machine  language, 
you  can  do  so  by  using  the  Apple  monitor  (CALL 
-151).  Enter  the  hex  values  as  shown  in  Program  2. 
The  Apple  Reference  Manual,  Chapter  3,  details  the 
use  of  the  resident  monitor. 

Once  the  program  is  entered  into  the  Apple 
either  by  the  loader  or  from  the  monitor,  it  should 
be  saved  to  disk  or  tape  before  going  any  farther. 
This  can  be  done  by  typing: 


JBSAVE  ALIST,A$8000,L$2FO 


or 


*8000.82FOW 


Running  Applesoft  Lister 

After  the  program  has  been  stored,  it  can  be 
utilized  by  loading  the  Applesoft  program  to  be 
listed  in  the  usual  manner.  The  list  program  can 
then  be  loaded  with; 


or 


]BLOAD  ALIST 


]CALL  -155 

•8000.82F0R 

*(CTRL-C) 


The  listing  program  can  then  be  run  by  typing: 

]PR#jr  (where  .r  is  the  slot  for  your  printer  interface, 

if  you  want  the  output  to  go  to  a  printer) 
]CALL  32768 


76,5, 128,3,80, 169,0, 133 
10,169, 1,133,0,169,8,133 
1, 169, 141,32, 157, 129,32,96 
129, 133,2,32,96, 129,  133,3 
5,2,208, 1,96,32,96, 129 
133,4,32,96, 129, 133,5, 169 
0, 133,6, 133,7, 133,8, 162 
16,24,248, 165,6, 101,6,  133 
6,165,7.101,7, 133,7,165 


290 
300 
310 
320 
330 
340 
350 
360 

370 

380 
390 
400 
410 
420 
430 

440 
450 
460 
470 
480 

490 
500 
510 
520 
530 
540 
550 
560 
570 

580 

590 
600 

610 
620 
630 

640 
650 
660 
670 
680 

690 


Program  1:  basic  Loader  For  Applesoft  Lister      700 


100  FOR  I  =  32768  TO  33295 

110  READ  ft-.CK    =  CK  +  A;  POKE  I,  A 

120  NEXT 

130  IF  CK  <   >  47880  THEN   PRINT  "ERRO 

R  IN  DATA  STATEMENTS":  STOP 

140  PRINT  "LISTER  ML  LOADED" 

150  END 

200  DATA 

210  DATA 

220  DATA 

230  DATA 

240  DATA 

250  DATA 

260  DATA 

270  DATA 

280  DATA 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

213 

DATA 

9 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

29 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

9 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

8 

DATA 

DATA 

DATA 

DATA 

DATA 

7 

DATA 

0 

DATA 

0 


169, 160, 32, 157, 129, 32, 107, 12 

169,0, 133,9,32,96, 129,201 
0,208, 16, 169, 141,32, 157,  129 
165,2, 133,0, 165,3, 133, 1 
76,22, 128, 166, 14,236,4, 128 
48, 18,72, 162,0, 189, 149, 129 
240,6,32, 157,129,232,206,245 

32,107,129, 104,201,34,208,8 
165,9,73, 128, 133,9,  169,34 
166,9,208,27,201,58,208, 19 
162,0, 189, 141, 129,240,6,32 
157, 129,232,208,245,32,107,1 

76,148, 128,201,128, 16,26,41 
127,201,32, 16, 14,72, 169,91 
32, 157, 129, 104,9,64,32, 157 
129, 169,93,32, 157, 129,76, 148 
128,72,201,129,208,2,230, 10 
201, 130,208,2, 198,10,201, 178 
208,2,230,9,170, 188,37,  129 
132, 11,36, 11, 16,5, 169,160 
32, 157, 129, 169,208, 133, 13, 16 


202 

I' 

242 


32, 157, 129, 169,208, 133, 13 

208, 133, 12, 104, 170, 160,0, 
16, 16, 177, 12,230, 12,208,2 
230, 13,201,128, 16,241,48, 

160,0, 177, 12,200, 170,32, 157 
129, 138, 16,246,36, 11,80,5 
169, 160,32, 157, 129,76,148, 12 


160,0, 177,0,230,0,208,2 
230, 1,96, 162, 13, 134, 14, 166 
10, 16,2, 162,0,224,6,48 
2, 162,6,202,48, 14, 172,3 

128. 136.48.247. 169. 160.32. 15 

129.76.129. 129.96. 141. 160. 16 
160, 160, 160, 186,0, 141, 160, 16 
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Program  2:  Hex  Dump 

Machine  Language 

8000-  4C  05  80  03  50 
8008-  0A  A9  01  85  00 
8010-  01  A9  8D  20  9D 
8018-  81  85  02  20  60 
8020-  05  02  D0  01  60 
8028-  85  04  20  60  81 
8030-  00  85  06  85  07 
803B-  10  18  F8  A5  06 
8040-  06  A5  07  65  07 
8048-  08  65  08  85  08 
8050-  26  05  90  02  E6 
8058-  E0  A2  05  A0  00 
8060-  0F  D0  0C  C0  00 
8068-  01  F0  04  A9  A0 
8070-  01  09  B0  20  9D 
8078-  A0  04  06  06  26 
8080-  88  D0  F7  68  A8 
8088-  A9  A0  20  9D  81 
8090-  A9  00  85  09  20 
8098-  00  D0  10  A9  8D 
80A0-  A5  02  85  00  A5 
80A8-  4C  16  80  A6  0E 
80B0-  30  12  48  A2  00 
80B8-  F0  06  20  9D  81 
80C0-  20  6B  81  68  C9 
80C8-  A5  09  49  80  85 
80D0-  A6  09  D0  IB  C9 
80D8-  A2  00  BD  8D  81 
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JAMTERM  -  G4  Provides  one-of-a-kind  CP/  m  tao  modem  capaoilltles  for  the  commoaore  64.        I49.as 
Package  Includes  hardware  Interface  and  terminal  communication  software.  Programs 
downloaded  require  no  conversion  to  run.  Features  Include:  send,  receive.  ASCII  capture, 
terminal  mode,  autodial,  and  error  checking. 

nP-64  Is  Commodore  CP/M  compatible  and  makes  CP/M  operations  easy  yet  powerful.  29.95 

BYE-64  Allows  remote  control  of  the  Commodore  64  and  utillies  logon  security  passwords.  FREE 

free  with  purchase  of  jamterm  -64. 

C64-NET  commodore  BBS.  fast  and  reliable,  cartridge  and  disk  with  auto  boot.  S9.95 

C64  CP/M  Public  domain  programs.  »1  -  «iia.  Ten  free  programs  per  disk.  Cost  covers  copy  10<O0 

service. 
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Program  Conversion  With 
Sinclair  BASIC  And  Tl  BASIC 


Julie  Knott  and  Dave  Prochnow 


Program  conversion  between  BAS]C  dialects  is  often 
easier  than  imagined.  This  tutorial  demonstrates  the 
compatibility  ofTl  BASIC  and  Sinclair  BASIC  and  in- 
cludes helpfid  tables  and  sample  conversion  programs. 


Program  conversion  can  be  an  easy  and  conven- 
ient operation.  Virtually  every  home  computer 
uses  BASIC,  which,  because  it's  easy  to  learn  and 
to  manipulate,  is  ideal  for  ready-made  language 
conversion.  However,  no  two  BASICs  are  created 
equal.  For  many  years  the  industry's  standard 
was  Microsoft  BASIC,  then  different  dialects 
began  to  emerge.  Manufacturers  would  use  the 
Microsoft  format  and  introduce  nuances  and 
subtleties  in  the  structuring,  labeling  each  of  these 
alterations  an  "improvement"  of  BASIC.  But  many 
were  only  changes  in  the  protocol — the  manner 
in  which  a  command  is  expressed.  And  it  be- 
comes relatively  easy  to  convert  BASIC  dialects  if 
the  major  differences  are  in  protocol  or  syntax. 

Two  versions  of  BASIC  which  lend  them- 
selves to  such  a  program  conversion  are  Sinclair 
BASIC  and  TI  BASIC.  Sinclair  BASIC,  used  in  the 
Timex/SincIair-1000,  is  unique  in  that  all  keywords 
are  single-stroke  entries.  For  example,  the  P  key 
stands  for  the  PRINT  command.  (The  use  of  a 
touch-membrane  keyboard  dictates  this  pro- 
cedural necessity.) 

Texas  Instruments  Tl-99/4  and  4A  use  TI 
BASIC,  which  is  more  conventional  in  that  each 
individual  letter  has  to  be  typed — PRINT  would 
require  five  keystrokes. 

There  are  only  slight  variations  between 
Sinclair  BASIC  and  TI  BASIC,  but  their  similarities 
allow  for  easy  program  conversion.  By  studying 
which  statements  and  commands  are  equivalent 
for  both  BASICs,  and  what  substitutions  are 
necessary,  program  conversion  can  be  relatively 
simple.  Also,  you  can  virtually  double  your  soft- 
ware by  translating  programs  published  for  the 
other  machines. 

For  the  sake  of  brevity,  the  following  glos- 
sary does  not  contain  all  of  the  keywords  In  Sin- 
clair BASIC  and  TI  BASIC — only  those  words 
which  are  confusing,  complicated,  or  not  directly 
translatable  have  been  listed.  For  a  more  com- 


plete listing,  consult  the  appropriate  user's 
manual. 

Sinclair  BASIC 

AND  —  a  logical  operator,  often  used  in  IF- 
THEN  statements 

ACS  —  function  that  gives  the  arc  cosine  of  an 
angle  in  radians 

ASN  —  function  that  gives  the  arc  sine  of  an  angle 
in  radians 

AT  —  used  in  a  PRINT  statement  to  give  a  location 
at  which  to  PRINT 

BREAK  —  stops  program  execution,  key  activated 
and  may  not  be  included  as  a  command  in  a 
program 

CLEAR  —  deletes  all  variables  from  memory 

CLS  —  clears  the  screen 

CODE  —  a  string  function  used  to  obtain  the 
numeric  value  of  a  given  character 
CONT  —  resumes  execution  of  a  program  fol- 
lowing a  report  code 

COPY  —  copies  the  contents  of  the  screen  to 
printer 

DELETE  —  erases  keywords  and  characters  while 
programming 

FAST  — -  fast  mode,  a  time-saving  mode  for  in- 
creased RUN  speed 

FUNCTION  —  function  mode 

GRAPHICS  —  graphics  mode 

INKEY$  —used  in  IF-THEN  statements  as  a  con- 
ditional statement,  executes  exclusive  of  ENTER 

LLIST  —  lists  the  contents  of  a  program  listing  to 

a  printer 

LOAD  —  loads  a  prerecorded  program  from  cas- 
sette tape  to  the  computer's  memory 

LPRINT  —  PRINTS  to  printer 

NOT  —  inverts  the  truth  value  of  an  expression 

OR  —  a  logical  operator,  used  in  conditional 
statements 

PAUSE  — creates  a  time  delay  while  the  program 
is  RUNning . 

PEEK  —  gives  the  value  of  the  byte  at  a  specific 
address  in  memory 
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PI  —  gives  the  value  of  PI 

PLOT  —  draws  a  pixel  at  a  given  location 

POKE  —  puts  a  numeric  value  into  memory  at  a 
specific  address,  erasing  the  previous  one 

SCROLL  —  scrolls  the  screen  up  one  line,  elimi- 
nating the  top  line 

SLOW  —  slow  mode,  the  standard  operating 
mode 

UNPLOT  —  erases  a  pixel  at  a  given  location 

USR  —  calls  a  machine  language  routine  at  a  spe- 
cific memory  address 

Ti  BASIC 

APPEND  —  an  open  mode,  allows  data  to  be 
added  at  the  end  of  the  existing  file 
ASC  —  ASCII  value  or  character  code 
BASE  —  option  base 

BREAK  —  sets  breakpoints  in  a  program,  used 
for  error  checking 

BYE  —  erases  memory,  returns  to  title  screen 
CALL  —  special  subprogram  to  obtain  color  and 
sound 

CLOSE  —  closes  the  association  between  a  file 
and  a  program 

CONTINUE  (CON)  —  continues  a  program  after 
a  breakpoint 
DATA  —  stores  data 

DEF  —  defines  user-established  functions  in  a 
program 

DELETE  —  removes  a  program  or  data  file  from  a 
filing  system 

DISPLAY  —  prints  on  screen  only 

ELSE  —  conditional  part  of  IF-THEN/ELSE 

statement 

END  —  terminates  program,  similar  to  STOP 

EOF  —  End-Of-File,  determines  if  the  end  of  a  file 
has  been  reached  on  an  accessory  device 

FIXED  —  files  with  a  specified  length,  used  with 
RELATIVE  or  SEQUENTIAL 

INTERNAL  —  file  type  recorded  in  machine 
language 

NUMBER  (NUM)  —  automatic  line  number 

generator 

OLD  —  loads  a  previously  SAVEd  program 

ON  —  a  conditional  numeric  expression,  used 
with  ON-GOTO  or  ON-GOSUB 

OPEN  —  prepares  to  use  data  files  stored  in  ac- 
cessory device 

OPTION  —  option  base,  sets  lower  limit  of  array 
subscripts  to  1  instead  of  0 

OUTPUT  —  transfers  data  out  of  a  program 

PERMANENT  —  file  life 


POS . —  position 

READ  —  reads  data  in  DATA  statements 

REC  —  points  to  a  specific  record  in  a  RELATIVE 
file 

RELATIVE  —  defines  a  file  with  FIXED 

RESEQUENCE  (RES)  —  reassigns  line  numbers 

RESTORE  —  identifies  which  DATA  to  use  with 
the  next  READ 

SEG$  —  string  segment,  substring 
SEQUENTIAL  —  defines  a  file,  used  with  FIXED 
or  VARIABLE 

SUB  — part  of  GO  SUB 

TRACE  —  outlines  the  order  that  statements  will 
be  performed  when  the  program  is  RUN 

UNBREAK  —  removes  breakpoints 

UNTRACE  —  cancels  TRACE 

UPDATE  —  an  open  mode,  for  reading  and 
writing  into  files 

VARIABLE  —  defines  a  varying  length  file,  used 

with  SEQUENTIAL 

Special  Subprograms  Used  With 
Graphics  And  Sound  In  TI  BASIC 

Each  subprogram  is  preceded  by  CALL  (for  ex- 
ample, CALL  CLEAR) 

CLEAR  —  erases  the  entire  screen 

COLOR  —  specifies  screen  character  colors 

SCREEN  —  changes  screen  color 

CHAR  —  defines  user-special  graphic  characters 

HCHAR  —  places  a  character  and  repeats  it  hori- 
zontally 

VCHAR  —  similar  to  HCHAR  except  repetition  is 
vertical 

SOUND  —  produces  tones  and  noises  of  different 
duration,  frequency,  and  volume 

GCHAR  —  reads  a  character  anywhere  on  the 
screen 

KEY  —  transfers  character  directly  from  keyboard 

to  program  without  ENTER 

JOYST  —  inputs  data  with  remote  controllers 

Easy  Conversions 

Many  of  the  commands  and  statements  of  these 
two  BASICS  are  directly  translatable.  Table  1  shows 
the  direct  BASIC  equivalents  for  Sinclair  BASIC 
and  TI  BASIC.  The  only  major  differences  between 
these  two  dialects  are  in  their  nomenclature. 

Several  dialects  of  BASIC  have  an  ON-GOTO 
statement  expressed  as: 

ON  X  GOTO  w,y,z 

where  x  is  the  value  of  a  numerical  expression 
and  w,  y,  and  z  are  line  numbers.  This  statement 
is  available  in  TI  BASIC,  but  not  in  Sinclair  BASIC. 
Through  the  use  of  conditional  expressions,  the 


134     COMPUTEI      July  1984 


Sinclair  BASIC  substitution  is: 

GOTO  (w  AND  x=l)  +  (y  AND  x=2)+(z  AND  x=3) 
The  operators  AND  and  OR  would  make  this 
possible. 

The  translation  of  many  program  lines  re- 
quires only  the  replacement  or  substitution  of  a 
word  unique  to  that  particular  BASIC.  Several  of 
the  more  common  functions  and  statements  are 
evaluated  in  this  manner  in  Table  2,  The  following 
Sinclair  BASIC  line  will  await  the  pressing  of  the 
Y  key,  exclusive  of  ENTER: 

100  IF  1NKEY$  < >  "Y"  THEN  GDTO  100 

To  perform  the  same  statement  in  TI  BASIC, 
replace  INKEY$  with  the  KEY  subprogram,  as 
follows: 


100  CALL 
110  IF  K'- 


K  E  Y  <  0  ,  K  ,  Z  ) 
>a9  THEN  100 


The  main  difference  is  in  the  structuring.  The 
KEY  subprogram  (subprograms  are  obtained  with 
CALL)  uses  three  variables  to  establish  where  the 
key  is  originating,  its  ASCII  code,  and  its  status. 
In  this  example  the  ASCII  code  of  89  represents 
the  Y  character. 

TI  BASIC  has  the  ability  to  store  expressions 
and  assign  values  to  these  variables  with  the  state- 
ments DATA,  READ,  and  RESTORE  (see  the  glos- 
sary). Vast  arrays  can  be  developed  and  initialized 
with  this  method.  Sinclair  BASIC  is  not  directly 
convertible  with  DATA,  READ,  and  RESTORE.  A 
large  battery  of  LET  statements  could  crudely 
handle  the  data.  Alternatively,  a  properly  DIMen- 
sioned  INPUT  statement  allows  the  creation  of 
such  an  array.  Upon  completion,  the  INPUT  state- 
ments are  removed  and  a  GOTO  command  is 
used  for  program  starting  (RUN  erases  the  vari- 
able array). 

String  Handling 

Strings  can  be  equally  bothersome.  Slicing  will 
supply  usable  substrings  in  Sinclair  BASIC.  A 
string  expression's  parameters  govern  the  start 
and  finish  of  the  slice.  No  special  statement  is 
necessary: 

A$(xTOz) 

with  X  representing  the  starting  number  and  z  the 
finish.  For  example: 

"COMPUTE"  (4  TO  7)  =  "PUTE" 

The  statement  SEG$  (A$,x,y)  in  TI  BASIC  has  the 
same  result,  but,  again,  with  different  nomencla- 
ture. X  is  the  number  of  the  start  for  the  substring 
and  Y  is  the  length  of  the  substring.  For  example: 

AS  =  "COMPUTE" 
SEG$(A$,4,4)  =  "PUTE" 

While  string  slicing  is  easily  translated,  the  TI 
BASIC  user-defined  function  is  not.  DEF  allows 
the  definition  of  functions  within  a  program. 


DEFX$  =  "Y" 

The  string  function's  name  is  X  and  the  string 
expression  is  Y.  VAL  and  string  variables  can  be 
user-defined  in  Sinclair  BASIC. 

LETX$  =  "Y" 
VALX$=  Y 

This  is  a  very  limited  and  a  "sometimes-maybe" 
proposition.  DEF  has  the  ability  to  also  handle 
numeric  functions.  This  ability,  as  well  as  using 
parameters  in  argument  evaluation,  is  beyond 
VAL's  means. 

When  attempting  a  program  conversion  you 
may  run  across  a  few  Sinclair  BASIC  terms  that 
are  completely  unfamiliar  to  you.  The  terms  USR, 
PEEK,  and  POKE  are  not  procedures  for  the 
examination  of  some  strange  alien  creature.  They 
are  primarily  associated  with  direct  access  to  mem- 
ory. To  call  a  machine  language  routine  that  begins 
with  a  specific  address,  USR  is  used.  This  will 
start  a  machine  language  program  running.  POKE 
is  used  by  the  T/S-1000  to  store  a  numeric  value  at 
a  specific  address  in  the  computer's  memory.  For 
example: 

POKE  17529,  38 

POKES  the  value  38  into  address  17529.  Con- 
versely, the  PEEK  command  is  used  to  read  certain 
addresses  to  see  what  is  stored  there.  The  PEEK 
command  is  followed  by  the  address  to  be 
PEEKed. 

PRINT  PEEK  17529 

would  PRINT  the  number  38.  When  you  are 
translating  a  program  from  Sinclair  BASIC  which 
contains  USR,  PEEK,  and  POKE  statements,  you 
must  find  out  what  they  accomplish  and  then 
interpret  that  into  TI  BASIC. 

PRINTing  on  the  screen  is  accomplished  by  a 
blending  of  line  and  row  markers.  Memory  con- 
servation techniques  notwithstanding,  PRINT 
can  be  used  to  move  the  PRINT  line.  For  example: 

PRINT 
PRINT 
PRINT  "COMPUTE" 

Sinclair  BASIC  also  allows  the  movement  of  PRINT 
with  AT  and  TAB. 

PRINT  AT  x,y 

and 

PRINT  TAB  y 

TAB  moves  the  PRINT  position  a  prescribed 
number  of  spaces  to  the  right.  Even  though  TAB 
is  present  in  TI  BASIC,  the  vocabulary  is  different. 
Line  changes  are  accomplished  with  colons  (:). 
Duplicating  the  above  examples, 

PRINT::... (x) TAB  (y) 

and 

PRINT  TAB  (y) 

X  is  the  number  of  colons  necessary  to  equal  the 
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value  of  the  line  number  (x)  in  the  Sinclair  BASIC 
example. 

The  Timex/Sinclair  lacks  color  and  sound 
features,  but  these  features  are  of  importance  on 
the  TI-99/4.  TI  BASIC'S  color  and  sound  statements 
are  subprograms  that  begin  with  CALL.  Clever 
usage  of  Sinclair  BASIC'S  character  set  can  dupli- 
cate some  of  these  color  combinations.  As  a  rule, 
however,  TI  BASIC  CALL  subprograms  should 
be  removed  and  not  directly  substituted  in  a  pro- 
gram conversion  to  Sinclair  BASIC.  This  allows 
concentration  on  the  program's  more  important 
graphics.  Consultation  with  Texas  Instruments' 
User's  Reference  Guide  will  provide  the  proper  pro- 
tocol for  development  and  inclusion  of  color  and 
sound  subprograms  in  a  Sinclair  BASIC  converted 
to  TI  BASIC  program. 

To  illustrate  the  principles  of  program 
conversion,  examine  these  sample  programs. 
While  each  program  is  unique  in  its  results,  the 
approach  is  similar  and  convertible.  The  purpose 
of  this  program  is  to  display  the  entire  character 
set  along  with  the  character  codes. 

T/S-1000  Version 


Table  1: 

Reference  Chart  Of  BASIC  Equivalencies 


10 

20 

30 
40 
50 
60 
70 
80 


FORA=0 
LET  A$  = 
PRINT  AT 
PRINT 
PRINT 
PRINT 
PRINT 
NEXT  A 


AT 
AT 
AT 
AT 


TO  255 

=  CHR$  A 
10,13;  A 

7,10;  A$j"[6  spaces}" 
7,17;  A$;"{6  SPACES}" 
13,  10;  A$;"t6  SPACES}" 
13,17;  A$;M6  SPACES}" 


Ti-99/4  Version 


10  0 
110 

120 
130 
140 
150 
160 
170 
1B0 
190 
2.00 
210 
220 
230 
240 


12'; 


FDR  A=32  TO 

B$=CHR* (A) 

CALL  CLEAR 

CALL  SCREEN (2' 

PRINT  TAB  (  13)  ;  B*;  T.AE  ;  13)  ;  B$ 

PRINT 

PRINT  TAB ( 14) ; A 

PRINT 

PRINT  TAB  (  13)  ;  Bs;  TAB  (  13)  .;  Bs 

PRINT  :::::::: 

FOR  S=3  TO  16 

CALL  SCREEN  ■IS) 

CALL  SOUND ( 4 00 ,  1  1 0  +  80 *  (  S-3 i  , 

NEXT  S 

NEXT  A 


1  ) 


In  line  10  of  the  Timex/Sinclair  example,  a 
loop  establishes  the  number  of  character  codes  to 
be  examined  (the  entire  character  set  is  0  to  255). 
Note  that  the  characters  with  codes  67-127  can- 
not be  printed  and  will  show  on  the  screen  as 
question  marks.  Lines  20  and  30  PRINT  the  code 
or  numeric  value  for  each  character.  The  arrange- 
ment of  the  printed  characters  is  defined  in  lines 
30-40.  In  this  way,  you  can  easily  interpret  the 
delay,  and  read  the  code  value  and  the  character 
almost  simultaneously.  This  program  will  RUN 
until  BREAK  is  pressed. 
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Sinclair  BASIC 

=  TIBASIC 

ABS 

ABS 

ATN 

ATN 

CHR$ 

CHR$ 

CODE 

ASC 

COS 

COS 

DIM 

DIM 

EXP 

EXP 

FOR 

FOR 

GOSUB 

GOSUBorGOSUB 

GOTO 

GOTO  or  GO  TO 

IF 

IF 

INPUT 

INPUT 

INT 

INT 

LEN 

LEN 

LET 

LET 

LN 

LOG 

LOAD 

OLD 

NEW 

NEW 

NEXT 

NEXT 

PRINT 

PRINT 

RAND 

RANDOMIZE 

REM 

REM 

RETURiN 

RETURN 

RND 

RND 

RUN 

RUN 

SAVE 

SAVE 

SGN 

SGN 

SIN 

SIN 

SQR 

SQR 

STEP 

STEP 

STOP 

STOP 

STR$ 

STR$ 

TAB 

TAB 

TAN 

TAN 

THEN 

THEN 

TO 

TO 

VAL 

VAL 

CLS 

CALL  CLEAR 

Table  2: 

Substitution  Chart  For  BASIC  Nonequivalents 


Sinclair  BASIC 

=  TI  BASIC 

NEW 

BYE 

PRINT 

DISPLAY 

GOTO  (W  AND  X-1) 

+  (Y  AND  X=  2)+(Z  AND  X-3) 

ON  X  GOTO  w,y,z 

:    IF  X  THEN  GOTO  Y 

It-  X  THEN  (¥) 

LETX-YtZ 

LETX"V  +  Zor  X=  Y  +  Z 

PAUSE  or  FOR  X  =  Z  TO  Y 
NEXTX 

FOR  X=Z  TO  Y 

NEXT  X 

INKEYS 

CALL  KEY 

A$)X  TO  Z) 

SEGS(AS,X,Y) 

Pi 

4* ATN  (H 

LETXS-"Y" 
VALXS  =  y 

DEF  X  =  Y 

STOP 

END  or  STOP 

PRINT  AT  X,Y 

FRINT::...(X)  TAB(Y) 

PRINT  TAB  ¥ 

PRINT  TAB(Y( 

ASNI 

•JT  /2  or  4'ATN(l)/2  or  2*ATN(]) 

IF  X  =  Y  THEN  GOTO  A 
GOTOZ 

IFX  =  YTHEN  A  ELSE  Z           --, 

Commodore 
64  ROM  Generations 


Jim  Butterfield,  Associate  Editor 


Commodore  products  are  often  subject  to  changes  in 
logic.  Not  marketing  logic  or  pricing  logic  (although 
they  change  too),  but  the  internal  logic  that  drives  the 
machines:  the  programs  in  ROM.  This  has  been  true  of 
PET/CBM  and  various  disk  systems.  This  article  traces 
differences  in  two  major  ROM  releases  of  the  Commo- 
dore 64  computer,  plus  a  third  released  with  the  SX-64 
portable  computer. 


Two  Environments 

The  first  64s  used  ROM  set  1 .  Before  releasing  a 
European  version  of  the  64,  Commodore  de- 
veloped ROM  set  2.  ROM  2  is  unique  in  that  it's 
the  same  for  North  America  and  Europe,  yet  rec- 
ognizes and  copes  with  differences  between  the 
two  environments.  More  on  that  later. 

Programs  developed  on  ROM  set  1  sometimes 
didn't  seem  to  work  on  ROM  set  2.  This  was  par- 
ticularly true  when  the  screen  was  set  up  using  a 
POKE  statement.  For  example,  a  user  clearing  the 
screen  and  then  typing  the  command  POKE  1500,1 
vdll  print  a  letter  A  around  the  middle  of  the 
screen,  but  with  ROM  2  this  letter  is  "invisible." 
Many  games  and  educational  programs  using  the 
screen  this  way  couldn't  make  the  transition  from 
ROM  1  to  ROM  2;  attractive  graphics  would  be- 
come invisible  and  the  effect  would  be  lost. 

I  have  met  a  third  ROM  recently;  it's  used  in 
the  SX-64  portable  computer.  There  are  small 
differences:  For  example,  disk  activities  are  given 
preference  over  tape,  and  screen  POKEs  are  once 
again  legal. 

In  all  cases,  the  BASIC  language  in  ROM  is 
not  changed  (addresses  $A000  to  $BFFF).  All 
changes  are  in  the  Kemal  ROM,  which  resides  at 
addresses  $E000  to  $FFFF. 

AJl  three  ROM  sets  are  very  similar;  the  dif- 


ferences are  largely  cosmetic.  Sometimes,  of 
course,  cosmetic  differences  are  enough  to  prevent 
a  particular  program  from  working  in  a  satisfactory 
manner;  but  there's  a  strong  bond  between  all 
models  I  have  examined. 

The  Tope  Pause 

When  you  give  a  tape  LOAD  command,  the  com- 
puter blanks  the  screen  and  searches  for  a  program 
"header"  on  the  tape.  When  it  finds  a  program,  it 
reports  the  name  with  a  message,  FOUND 
XXXXX,  unblanks  the  screen,  and  waits.  When 
you  touch  a  key  (preferably  the  Commodore  Logo 
key),  the  screen  blanks  once  again  and  the  pro- 
gram starts  to  load. 

ROM  1  waits  forever.  If  you  don't  press  a 
key,  it  keeps  waiting.  ROM  2,  however,  waits 
only  a  few  seconds  and  then  proceeds  with  the 
program  load  activity.  ROM  3  for  the  SX-64  doesn't 
have  a  cassette  tape  connection,  so  it  doesn't  do 
either. 

Why  does  the  screen  need  to  blank?  Here's 
the  reason:  The  screen  interferes  very  slightly 
with  the  processor.  Roughly  once  every  ¥2000  sec- 
ond, the  processor  chip  is  stopped  briefly  to  allow 
the  video  chip  to  get  extra  information  from 
memory.  This  is  no  hardship  except  when  we 
need  to  read  or  write  tape. 

When  cassette  tape  is  active,  the  processor 
needs  to  time  events  precisely.  It  can't  afford  to 
miss  even  the  brief  time  lapse  that  the  video  chip 
might  cause.  So  it  turns  the  screen  off  in  order  to 
get  the  most  efficient  timing  "edge." 

Technical  note:  The  "Find  Tape  Header"  sub- 
routine at  $F761  is  changed  in  ROM  2  so  that  it 
calls  a  new  subroutine  at  $E4E0  to  allow  time-out. 
The  same  coding  is  used  in  the  SX-64  ROM,  but 
it's  not  useful  since  this  machine  can't  use  tape. 
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Screen  Clear 

When  ROM  1  clears  the  screen,  it  sets  the  fore- 
ground color  of  aU  screen  locations  to  white.  As  a 
result,  it's  easy  to  POKE  screen  memory  and  have 
white  characters  appear. 

ROM  2  changed  all  that.  When  the  screen 
clears,  the  foreground  color  of  all  characters  is  set 
to  the  background  color.  If  you  POKE  to  an  unused 
location,  you'll  end  up  printing  blue  on  blue, 
which  makes  it  invisible.  The  character  is  indeed 
there:  You  can  see  it  if  you  place  the  cursor  over 
that  position.  But  it's  not  much  use  to  the  viewer. 

Commodore  may  have  done  this  to  reduce 
screen  "sparkle" — colored  or  white  flashes  that 
appear  randomly  on  the  screen.  Whatever  the 
reasoning,  it  caused  writers  of  software  some 
anguish  if  their  existing  programs  POKEd  the 
screen  a  good  deal.  Many  Commodore  demon- 
stration programs  lost  their  appeal  on  the  new 
machines.  All  programs  would  still  run,  but  the 
screen  wouldn't  look  right. 

With  the  new  SX-64  ROM,  we're  back  to  al- 
lowing screen  POKEs.  It  may  be  too  late  for  soft- 
ware writers,  but  when  the  SX-64  clears  the  screen, 
it  sets  the  foreground  color  of  all  screen  locations 
to  the  cursor  color.  That's  better  than  ROM  1, 
which  sets  white  only — you  have  a  chance  to 
choose  the  POKE  color. 

Technical  note:  The  Clear-a-Line  subroutine 
at  $E9FF  was  changed  slightly  to  call  a  new  sub- 
routine at  $E4DA;  this  sets  character  color  to  back- 
ground color  on  ROM  2.  On  SX-64  ROM,  character 
color  is  set  to  the  value  from  $0286,  the  current 
"cursor"  color. 

Different  Crystal  Speeds 

ROM  1  was  designed  for  North  American  use. 
ROM  2  was  designed  for  worldwide  use,  and 
considerable  thought  was  put  into  creating  a  uni- 
versal design.  When  power  is  applied  to  the 
computer,  ROM  2  does  some  interesting  detective 
work. 

Very  early  in  the  game,  ROM  2  set  the  raster 
interrupt  to  fire  at  scan  line  622.  Here's  the  trick: 
There  is  no  line  622  on  North  American  sets;  if 
the  interrupt  signal  fires,  we  must  be  elsewhere. 

Depending  on  the  continent,  the  ROM  sets 
up  timing  for  the  clock  and  RS-232  transmission. 
What's  happening  here  is  that  the  two  different 
types  of  machine  are  driven  at  different  "crystal" 
speeds,  and  the  program  must  compensate  for 
this  to  allow  consistent  overall  speed. 

The  programmer  on  a  ROM  2  system  must 
keep  in  mind  that  the  raster  interrupt  register  in 
the  video  chip  has  already  been  used  by  the  sys- 
tem; it  cannot  be  assumed  to  be  zero. 

Technical  note:  The  table  at  $ECB9  which 
sets  up  the  video  chip  has  been  changed  to  include 
the  raster  interrupt.  The  Power-Up  Reset  program 
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itself  has  been  changed  at  $FCFB  by  the  insertion 
of  a  call  to  a  new  subroutine  at  $FF5B.  If  line  622 
(Europe)  is  detected,  address  $02A6  is  set  to  1  to 
signal  "European  System."  This  new  location, 
$02A6,  is  used  to  set  up  the  timer  which  creates 
"jiffies"-^ V6o-second  interrupts.  It  wrill  also  be 
checked  if  the  RS-232  channel  is  opened,  and 
timing  information  extracted  from  the  appropriate 
table. 

Small  Stuff 

ROM  1  had  troubles  if  you  tried  to  PRINT#  to  a 
device  that  wasn't  there;  ROM  2  has  its  act  together 
a  little  better. 

SX-64  ROM  identifies  itself  with  a  new  mes- 
sage: SX-64  BASIC  V2.0,  in  case  you  didn't  notice 
that  it  was  an  SX-64  you  had. 

If  you  hold  down  SHIFT  and  press  RUN/STOP 
on  the  SX-64,  you'll  get  a  load/run  from  disk;  the 
screen  reads  LOAD":*",8  ...  RUN.  This  data  is 
stored  in  an  area  of  memory  that  usually  contains 
the  message  PRESS  PLAY,  but  you  won't  be  using 
the  cassette  this  time  so  you  won't  miss  that  mes- 
sage. Any  attempt  to  use  a  cassette  on  the  SX-64, 
by  the  way,  will  result  in  an  ILLEGAL  DEVICE 
NUMBER  message. 

The  differences  are  not  great.  Most  users  will 
spot  only  the  tape  pause  and  the  screen  POKE  as 
operational  differences. 

Serious  programmers  will  appreciate  the  fact 
that  changes  have  been  made  as  "patches,"  which 
means  that  previous  entry  points  have  not  moved; 
they  are  still  in  the  same  places  that  they  used  to 
be.  A  call  to  a  machine  language  subroutine  at  a 
given  location  wiU  still  be  good. 

There  are  still  things  that  many  users  would 
like  to  see  improved  in  Commodore  64  BASIC 
and  Kemal.  In  particular:  The  INPUT  statement  is 
uncomfortable  at  times,  and  certain  types  of  screen 
editing  work  awkwardly.  You  may  have  a  wish 
list  of  your  own.  It  seems  quite  likely  that  we'll 
see  another  ROM  system  one  of  these  days. 

Coming  Soon 

Commodore  is  said  to  be  working  on  new  ROM 
systems  for  the  64  and  its  peripherals.  Compati- 
bility is  expected  to  be  retained  with  previous 
ROMs,  but  certain  operational  annoyances  will  be 
eliminated. 

Watch  for  a  new  Kemal  ROM — we  expect  it 
to  be  coded  901227-03.  It  will  fix  up  a  couple  of 
problems  associated  with  screen  usage. 

The  Commodore  64,  like  the  VIC-20,  behaves 
oddly  if  an  INPUT  statement  is  written  with  a 
lengthy  prompt;  if  the  prompting  message  is  long 
enough,  the  user  input  will  need  to  be  typed  onto 
the  next  line  of  the  screen.  In  such  a  case,  the 
computer  receives  a  peculiar  input:  As  well  as 
reading  what  the  user  has  typed  in,  it  reads  its 
own  prompt  message. 


A  more  serious  problem  arises  if  a  user  types 
in  a  line  longer  than  80  characters,  and  then  backs 
up  using  the  Delete  key.  The  too-long  line  goes 
beyond  two  rows  on  the  screen,  of  course;  but 
when  the  user  backs  up,  the  computer  might  stop 
working. 

The  above  problems  are  expected  to  be  fixed 


when  the  new  version  3  chip  is  released.  In  addi- 
tion, some  of  the  above-noted  changes  for  the  SX- 
64  will  also  be  implemented — for  example,  screen 
POKES. 

Commodore  is  also  said  to  be  working  on 
new  logic  for  printers  and  disk  units.  Watch  for 
them,  too. 


Commodore  1541  Generations 


Tracking  the  generations  of  Commodore's 
1541  disk  drive  is  not  unlike  reading  a  mystery 
novel.  Unfortunately  for  1541  owners,  Com- 
modore so  far  has  not  written  the  last  page  in 
which  the  mystery  is  revealed,  so  we  can  only 
examine  the  clues  and  speculate. 

Clue  No.  1:  The  original  1541  had  a 
"long"  circuit  board  which  extended  the 
length  of  the  drive.  This  board  probably  was 
the  same  as  was  in  the  1540  drive,  predecessor 
to  the  1541. 

Clue  No.  2:  Both  the  1540  and  the  orig- 
inal version  of  the  1541  had  white  cases. 

Clue  No.  3:  Later  versions  of  the  1541 
have  brown  cases,  and  a  "short"  board  which 
extends  about  half  the  length  of  the  drive.  Our 
sources  tell  us  that  the  short  board  is  a  re- 
designed long  board  and  that  when  the  circuit 
board  was  redesigned,  timing  problems 
showed  up  in  the  drive. 

Clue  No.  4:  ROM  chips  bearing  four  dif- 
ferent part  numbers  have  been  seen  in  1541 
drives.  During  a  teleconference  on  the  Com- 
modore Information  Network  on  March  29, 
1984,  a  Commodore  Research  &  Development 
representative  gave  the  part  number  of  the  lat- 
est ROM  as  901229-05.  (The  suffix  05  indicates 
the  ROM  version.)  ROM  chips  with  suffixes 
01,  02,  and  03  also  have  been  seen  in  1541 
drives. 

Clue  No.  5:  During  the  teleconference,  the 
Commodore  representative  said  that  one  of  the 
changes  incorporated  into  the  05  ROM  version 
had  to  do  with  the  serial  bus.  (Peripherals 
such  as  the  1541  and  the  1525  printer  connect 
to  the  Commodore  64  through  the  serial  bus.) 

Clue  No.  6:  Owners  of  the  1541  have  re- 
ported problems  when  trying  to  use  two 
1541s;  occasionally,  when  a  program  accesses 
one  of,  the  drives,  the  system  locks  up.  Prob- 
lems also  have  been  reported  involving  lockup 
on  systems  with  one  1541  drive  and  the  Com- 
modore 1526  and  MPS-801  printers. 

Clue  No.  7:  1541  users  report  an  inter- 
mittent problem  when  saving  files  to  disk  using 
the  replace  option  (SAVE  "@0:filename",8). 
Instead  of  replacing  the  intended  file,  the 


drive's  operating  system  writes  over  another 
file  on  the  disk,  and  changes  the  directory 
pointers  so  that  the  intended  file  is  no  longer 
accessible.  A  similar  problem  has  been  re- 
ported in  the  Commodore  4040  drives.  At  the 
teleconference,  the  Commodore  representative 
said  he'd  never  experienced  this  problem. 
However,  he  also  said  that  the  4040  and  1541 
used  the  same  basic  operating  system. 

Clue  No.  8:  A  technical  representative 
with  Integrated  Computer  Repairs  (ICR),  of 
Santa  Mesa,  California,  told  us  that  his  com- 
pany repairs  and  updates  the  1540  and  1541 
drives.  ICR  claims  that  merely  replacing  the 
ROM  chip  with  an  05  version  is  not  enough; 
they  also  make  hardware  changes,  modifying 
the  short  circuit  board. 

Clue  No.  9;  Overheating  problems  have 
been  reported  with  the  1541.  After  the  drive 
has  been  on  for  several  hours,  some  users  re- 
port input-output  errors  and  other  problems. 

Clue  No.  10:  In  the  past.  Commodore 
representatives  have  said  that  the  1541  ROM 
changes  were  "mainly  cosmetic." 

Clue  No.  11:  ICR  claims  that  the  drives 
they  have  updated  no  longer  have  lockup 
problems.  It  is  not  clear  whether  their  update 
solves  the  save-with-replace  problem. 

Clue  No.  12:  COMPUTE!  made  several  tele- 
phone calls  to  Commodore  Business  Machines, 
Inc.,  asking  Commodore  to  respond  to  the 
above  items.  Ms.  Susan  West,  of  the  Public 
Relations  Department,  promised  to  find  a  tech- 
nical representative  who  could  answer  our 
questions.  We  never  heard  from  a  technical 
representative,  and  Ms.  West  failed  to  return 
our  subsequent  calls,  the  last  placed  as  this 
article  was  going  to  press. 

So,  it  seems  that  Commodore  has  issued 
at  least  four  different  versions  of  the  1541  disk 
drive,  for  reasons  which  are  known  only  to 
them.  And  problems  may  exist  (or  have  ex- 
isted) not  only  in  the  ROM  chips,  but  also  in 
the  board  circuitry.  Finally,  it  appears  that 
Commodore  is  unwilling  to  help  us  solve  the 
mystery.  @ 
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Atari 


Macro 


§!• 


S 


Part  2 

Jerry  Allen 


Last  month  we  introduced  "Atari  MacroDOS" 
and  presented  a  BASIC  program  which  loads  the 
MacroDOS  machine  language.  This  month  we'll 
look  at  some  technical  details  of  MacroDOS  and 
present  a  disassembly  of  the  program. 

Assembler  users  can  alter  the  MacroDOS 
commands  table  (CMDTAB)  if  they  so  desire. 
Just  remember  to  change  lines  which  check  for 
command  input  to  reflect  the  new  command  let- 
ter. Also,  revise  TABl  if  necessary. 

You  can  append  another  AUTORUN.SYS 
program  to  the  end  of  MacroDOS,  such  as  a 
menu  loader  for  BASIC. 

Assuming  you  have  MacroDOS  up  and  run- 
ning as  AUTORUN.SYS,  enter  DOS,  then  load 
the  other  AUTORUN.SYS  from  another  disk. 
SAVE  with  APPEND  ("D:AUTORUN.SYS").  En- 
ter the  beginning  and  ending  addresses  at  the  @ 
prompts.  If  necessary,  return  to  the  cartridge  and 
POKE  or  otherwise  change  the  INIT  and  RUN 
addresses.  Return  to  DOS  and  SAVE  with  ap- 
pend again  to  pick  up  the  addresses  just  altered. 


Finding  Load  Addresses 

If  you  can't  figure  out  the  load  addresses,  use 

this 

program: 

10 

DPEN#2, 4,0, "D: YOURPRDG. 

,  OBJ 

20 

FOR     1  =  1     TO     b. 

30 

GET#2, A 

40 

PRINT     ft 

50 

NEXT     A 

60 

CL0SE#2 

The  first  two  bytes  should  be  a  header  of  255 
{$FF).  The  next  four  bytes  will  be  the  beginning 
and  ending  addresses  of  the  load  (two-byte  num- 
bers in  low  byte,  high  byte  format). 

If  the  file  loads  to  multiple  address  areas 
(including  RUN  and  INIT)  after  the  first  block  of 
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memory  is  loaded,  OS  checks  for  a  new  header 
of  255,255.  If  it  is  there,  the  header  is  ignored, 
and  the  next  four  bytes  will  be  the  new  from-to 
load  addresses. 

Loading  With  Page  6 

Loading  RUN  with  page  6  (1536)  would  look 
like: 

$EO(224),$02(2),$EO(224),$02(2),$00(0),$06(6) 

(without  the  header).  With  a  little  math  and 
modification  of  the  program,  you  could  find  all 
the  load  addresses  of  any  compound  load  file. 
If  you  don't  want  to  type  the  programs  in, 
send  $3,  and  a  disk  or  tape  with  an  SASE  mailer. 

]erry  Allen 
1906  Carnegie  #E 
Redondo  Beach,  CA  90278 

MacroDOS,  Machine  Language  Source  Code 

Refer  to  the  "Automatic  Proofreader"  article  before  typing  this 
program  in, 

0200     ; EQUATES 


0210 

ICBC 

=    $342 

0220 

ICBAL 

=    4344 

0230 

ICBAH 

=    *345 

0240 

ICBLL 

=    «348 

0250 

ICBLH 

=     *349 

0260 

ICBAX 

=    *34A+16 

0270 

MEMLO 

=    «2E7 

0280 

LBUF    = 

=    «580 

0290 

INBUF 

=    *F3 

0300 

CIX     = 

«F2 

0310 

FR0     = 

SD4 

0320 

FRl     = 

$E0 

0330 

GETR    = 

■■    *05 

0340 

GETC    = 

■■    «07 

0350 

PUTC    = 

:       $0B 

0360 

PUTR    = 

■■    *09 

0370 

OPEN    = 

♦  03 

0380 

CLOSE 

=     «0C 

0390 

ftXIO     = 

■■    *0C 

0400 

AXOUT  =  t08 

1  100 

FMT  LDA  #'?  ; FORMAT 

0410 

AXAP  =  *09 

1110 

JSR  PRINT  ;sure? 

0420 

AXDR  =  *06 

1120 

JSR  GTREC 

0430 

FR0Z  =  *DA44 

1130 

LDA  LBUF 

0440 

IFP  =  *D9AA 

1140 

CMP  #'Y  ;is  there  a  yes? 

0450 

FPI  =  *D9D2 

1150 

Bl  BNE  ST  ;if  not  start  over 

0460 

FPASC  =  «D8E6 

1160 

JSR  ASKDN  ;get  drive* 

0470 

FMDVE  =  «DDB6 

1170 

BMl  EX  jexecute 

0480 

ASCFP  =  *D800 

1180 

ASKDN  LDA  »'D  ; GET  DRIVE* 

0490 

LO  =  «00FF 

1190 

JSR  PRINT 

0500 

HI  =  S0100 

1200 

LDA  #'» 

0510 

CID  =  *E456 

1210 

JSR  PRINT 

0520 

WARMST  =  *E474 

1220 

JSR  GTREC 

0530 

DOSVEC  =  *0A 

1230 

LDA  LBUF 

0540 

DDSINI  =  40C 

1240 

STA  ADRDIR+1  ; change  D* 

0550 

OLDDOS  =  *179F 

1250 

STA  ADRDOS+1  sJ"st  in  case 

0560 

JMPINI  =  *1705 

WDS 

0570 

JMPRUN  =  *1708 

1260 

LDY  #6 

05B0 

y 

1270 

L4  LDA  ADRDIR.Y  ; move  filena 

0590 

f 

me 

0600 

t=     *1CFC  ;change  this  addr 

12B0 

STA  (INBUF) , Y 

far 

1290 

DEY 

0610 

;larger  versions  of  DOS2.0B 

1300 

BPL  L4 

0620 

1310 

RTS 

0630 

1320 

PFN  LDA  #'F  ;PROMPT  FILENAME 

0640 

ST  JSR  CLSE  :to  he  sure 

1330 

JSR  PRINT 

0650 

STY  CIX  ;set  f.p.   painter 

1340 

LDA  tt'N 

0660 

DEY 

1350 

JSR  PRINT 

0670 

STY  *2E3;clear  INIT/RUN 

1360 

LDA  #'7 

0680 

STY  *2E1 

1370 

JSR  PRINT 

0690 

STY  *FF  ;reset  load  flag 

1380 

JMP  GTREC 

0700 

LDX  »LBUFS<LQ  ;init  fit.  pt 

1390 

WDS  CMP  »'W  ;WRITE  DOS. SYS 

1400 

BNE  LQD 

0710 

LDY  «LBUF/HI 

1410 

JSR  ASKDN 

0720 

STX  INBUF 

1420 

INY 

0730 

STY  INEUF+1 

1430 

L5  LDA  ADRDOSjY 

0740 

DISCMD  LDY  #TAB 1 -CMDTAB- 1 

1440 

STA  (  INBUF)  , Y 

0750 

Li  TYA  ;DISPLAY  COMhANDS 

1450 

DEY 

0760 

PHA 

1460 

BNE  L5 

0770 

LDA  CMDTABjY 

1470 

JSR  DPN 

0780 

JSR  PRINT 

1480 

BPL  Bl 

0790 

PLA 

1490 

LOD  CMP  *'L 

0800 

TAY 

1500 

BNE  SAV 

0810 

DEY 

1510 

STA  *FF 

0820 

BPL  LI 

1520 

JSR  PFN 

0830 

LDA  #AXDUT  ;init  aux 

1530 

LSR  ICBAX  ;8>4 

0840 

STA  ICBAX 

1540 

JSR  OPN 

0850 

JSR  GTREC  :get  cammand 

1550 

L6  JSR  GETCR2  jget  hdr  in  pa 

0860 

LDY  #4  sGET  COMMAND 

i  rs 

0S70 

LDA  LBUF 

1560 

LDA  #4FF  ; check  headr  and- 

0880 

L2  CMP  TABl , Y 

1570 

CMP  FR0  ;disregard  *FF'S 

0890 

BEQ  SPECMD 

15B0 

BNE  SK2 

0900 

DEY 

1590 

CMP  FR0+1 

0910 

BPL  L2 

16  00 

BEQ  L6 

0920 

DIR  CMP  tt'D  sDIRECTDRY 

1610 

SK2  JSR  FMOVE  ; FP0  to  FPI 

0930 

BNE  WDS 

1620 

JSR  GETCR2 

0940 

LDA  #06 

1630 

JSR  SUBTR  ;subtr  HI-LO  &BX 

0950 

STA  ICBAX 

ec  ut  e 

0960 

JSR  ASKDN  ;drive  #? 

1640 

JSR  CHKIN 

0970 

JSR  QPN    ;DpBn 

1650 

BEQ  L6 

0980 

L3  LDX  «*10 

1660 

CHKIN  LDA  *2E3 

0990 

JSR  GTREC  ;get  formatted  1 

1670 

BEQ  SK12 

i 

i  ne 

1680 

JSR  JMPINI 

1000 

JSR  PTREC0  ;print  it 

1690 

LDA  #0 

1010 

BPL  L3 

1700 

STA  *2E3 

1020 

SPECMD  LDA  TAB2,Y  ^SPECIAL  C 

1710 

SK12  RTS 

MDB 

1720 

SAV  CMP  #'S  ;SAVE  FUNCTION 

1030 

PHA  ; save  cmd 

1730 

BNE  RUN 

1040 

CMP  #tFE  ;chBck  if  format 

1740 

JSR  PFN 

1050 

BEQ  FMT 

1750 

LDY  tt*FF  ;check  if  append 

1060 

JSR  PFN 

(/) 

1070 

EX  PLA  ;retrieve  coinniand 

1760 

L7  INY 

1080 

JSR  EXCMD  ;do  it 

1770 

LDA   ( INBUF) , Y 

1090 

BPL  ST 

1730 

CMP  «'/ 
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1790 
1800 
1810 
IBIS 
1830 
1840 
1850 
18&0 
1870 
1880 
1B90 
1900 
1910 
1920 
1930 
1940 
1950 

1960 
1970 
1980 
1990 
2000 

2010 
2020 
2030 
2040 

2050 
2060 

2070 
2080 
2090 
2100 

2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 

2230 

2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 

2400 
2410 
2420 
2430 
2440 
2450 


BNE  SK4 

INC  ICBAX  ;9=append 

LDA  «*9B 
STA  ( INBUF) , Y 
5K4  CMP  tt*9B 

BNE  L7 

JSR  DPN  ;open  -for  write 


LDfi  tt*FF 

STA  FR0 

STA  FR0+1 

JSR  PUTCR2 

JSR  INPCON 

JSR  PUTCR2 

JSR  FMOVE 


start  headr 


; wr  i  te  i  t 
; get  f  rom# 
; wr  i  te  i  t 
; st  or  e  it 


JSR  INPCON  ;get  to* 


JSR  PUTCR2 
JSR  SUBTR 


; wr  i  t e  it 
;  -f  i  nd  1  en 


and  5 


BPL  B2  ; the  rest 
RUN  CMP  #'3  ;RUN 
BNE  CART 
JSR  INPCON 
J  MP  (FR0) 


get  » 

jump  indirsctl 


CART  CMP  #'C  jCftRTRIDGE 

BNE  ADOS 

JMP  WARMST 
ADDS  CMP  #' !   ; ESC  TO  ATARI  D 
UP 

BNE  HEX 

LDA  #*40  ;reset  DOSINI  -for 
no  — 

STA  DOSINI  ;trouble  later 

LDA  #$15 

STA  DOSINI+1 

JSR  «1540  ;fast  reset  DDSV 
EC 

JMP  OLDDOS 
HEX  CMP  »'«  ;HEX  TO  DEC 

BNE  DEC 

JSR  HASCI  ;hex  to  int 

JSR  lASC  ;int  to  dec 

BPL  B2 
DEC  CMP  #'.  ; DEC  TO  HEX 

BNE  B2 

JSR  DA5CI  ;dBc  to  int 

JSR  IHASC  ;int  to  hex 
B2  BPL  LSTCNC+2 

OPN  LDA  ttOPEN  ;IOCB  MAIN  SET 
UPS 
EXCMD  LDX  »*10 

BNE  GTR2 
PTREC0  LDX  #0 
PTREC  LDA  *PUTR 

BNE  GTR2 
GETREC0 

GTREC  LDA  #GETR 
GTR2  STA  ICBC,X 

LDA  #$1E  ; max  rec  length 

STA  ICBLL, X 

LDA  #LBUF/HI 

STA  ICBAH,X 

LDA     »LBUFS<LO 
PGIN     STA     ICBAL.X 

LDA    *0 

STA  ICBLH.X 
ICB  JSR  CIO  ;let  the  OS  take 
over 

BMI  ERR 
RTN2  RTS 
PUTCR2  LDA  «PUTC 

BNE  GETC2 
GETCR2  LDA  «GETC 
SETC2  LDX  ««10 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 

2620 
2630 
2640 
2650 
2660 
2670 

2680 
2690 
2700 
2710 
2720 
2730 

2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 

2840 

2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
29S0 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 

3070 
3080 
3090 
3100 
31  10 
3120 


STA  ICBC.X 

LDA  #2 
JG  STA  ICBLL, X 

LDA  #0 

STA  ICBAH, X 

LDA  #FR0 

BNE  PGIN 
CLSE  LDA  #CLOSE 

BPL  EXCMD 
PRINT  STA  FR0 

LDX  #0 

LDA  #PUTC 

STA  ICBC, X 

LDA  #1 

BPL  JG 
ERR  CPY  #«03 
OK 

BEQ  RTN2 

CPY  tt*B8  ;ERR 

BEQ  CINI 

TYA        ;5tor 

PHA 

LDA  #*C5  ;  i  nve 
rr  or 

JSR  PRINT 

JSR  FR0Z  ;clea 

PLA        ;retr 

STA  FR0 

JSR  lASC  ;int 
LSTCNC  PLA  ;clr 
urn 

PLA 

JMP  ST  ;do  not 
CINI  LDA  *FF 

BEQ  LSTCNC 

JSR  CHKIN 
JRUN  LDA  S2E1 

BEQ  LSTCNC 

JSR  JMPRUN 

BNE  LSTCNC 
INPCON  LDA  * 
TYPE 

JSR  PRINT  ;the 
TO 

JSR  GTREC 
LDY  LBUF 
CPY  #' . 
BEQ  DASCI 
CPY  #'* 
BEQ  HASCI 
BNE  ERR  ;bad 
DASCI  JSR  ASCFP 

JMP  FPI 
HASCI  JSR  FR0Z 

LDY  #1 
LB  LDA  <  INBUF)  , Y 

CMP  #$9B 

BEQ  RTN 

SEC  ; convert  e 

SBC  #«30 

CMP  #*0A 

BMI  SK7 

SBC  #7 
SK7  LDX  #4 
LA  ASL  FR0 

ROL  FR0+1 


ERR  next  read 

EOF  OK  too 

e  ERR 

rted  E  for  e 


r  FP0 
ieve  ERR 

to  dec 

st ac  k  of  ret 


pass  GO 


HEX  OR  DEC* 
3  means  AT/ 


input 

;DEC  TO  INT 

;HEX  TO  INT 


ach  digit 


t  i  mes  1 6 


DEX 

BNE  LA 

ORA  FR0  ;add  in 

STA  FR0 

INY 

BPL  LB 


new  bits 


3130  RTN  RTS 
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3140 


IHASC  LDY  #0  ;INT  TO  HEX  SUB 
RT 


pace 


;B00 


BYTE     ■' >"  ,  «9B,  *9B,  "SD"  ,«A 


3150 

LDX     #1 

1 

3160 

LC    LDA    #«F0    ;hi     mask 

3810 

.BYTE     "     t>",*AE,"     .>",*A4 

3170 

AND    FR0,X 

3820 

.BYTE     "     SD",*D7,"     NR",*C0 

3180 

LSR    A              ;roll     into     1  oh    b 

3830 

.BYTE     "     DO", sec,"     VA",«D3 

its 

,  *9B 

3190 

LSR     A 

3S40 

.BYTE     ■•TR",«C3,"     TM",«C6 

3200 

LSR     A 

3850 

.BYTE     "     SR",«C5,"     MN",»D2 

3210 

LSR    A 

3860 

.BYTE     "     «N",*D5,"     KL",«AA 

3220 

JSR    CDNVH     ;go    conv    to    dig 

3870 

.BYTE     "     RI",*C4,*9B 

it 

3880 

TABl 

3230 

LDA    #«0F     ;Io    mask 

3890 

.BYTE     "REKUF" 

3240 

AND    FR0,X 

3900 

TAB2 

3250 

JSR    CDNVH 

3910 

.BYTE    *20,*21,«23,«24,*FE 

3260 

DEX 

3920 

ADRDIR 

3270 

BPL     LC     ;one     more     time 

3730 

.BYTE     "Dl ; «. «" ,S9B 

3280 

BMI     LE     ;set     eol     and     rtn 

3940 

ADRD05 

3290 

CDNVH    CMP     lt«0A     jINT     TO     HEX     D 

3950 

.BYTE     "Dl  : DOS.SYS" , «9B 

lEIT 

3960 

END     ;end     after     boot     init     exe 

3300 

BMI     SK9 

cuted 

3310 

ADC     #6     ;carry     set 

3970 

3 

3320 

SK9     ADC    #*30     ;carry     clr 

3980 

? 

3330 

STA      (  INBUFJ  , Y 

3990 

INITl     LDA    ttlNIT&LQ     ; BOOT     INI 

3340 

INY 

T 

3350 

RTS 

4000 

STA     DOSINI 

3360 

lASC     JSR     IFF     ;INT     TO     DEC 

4010 

LDA    #INIT/HI 

3370 

JSR     FPASC 

4020 

STA     DOSINI+l 

3380 

AREC    LDY    #0     ;CLR    HI     BIT/MAKE 

4030 

JMP     JI 

REC 

4040 

5 

3390 

L9     LDA      C INBUF) , Y 

4050 

? 

3400 

INY 

4060 

«=     S2E2     iLQAD     AND     GO     INIT 

3410 

CMP    #*S0     ;find     hi     bit     char 

ADR 

3420 

BMI     L9 

4070 

.WORD     INITl 

3430 

AND     #*7F     ; mask     it 

DEY 

STA      (  INBUF)  , Y 

4080 

.  END                                                                               © 

3440 

3450 

3460 

INY 

3470 

LE    LDA    «*9B     ; set     EOL 

COMPUTE! 

3480 

STA      ( INBUF)  ,  Y 

Subscriber  Services 

3490 

JMP     PTREC0 

3500 

SUBTR     INC    FR0     ;inclusive    so 

i  nc 

Please  help  us  serve  you  better,  if  you 
need  to  contact  us  for  any  of  ttie  reasons 

3510 

BNE     SK5     ; TO     address 

listed  below,  write  to  us  at: 

3520 

INC     FR0+1 

COMPUTE!  Magazine 

3530 

SK5     LDX     #«10 

P.O.  Box  914 

3540 

LDA    FRl 

Farmingdale,  NY  11737 

3550 

STA     ICBAL,X 

or  call  the  Toll  Free  number  listed  below. 

3560 

LDA    FRl+1 

Change  0(  Address.  Please  allow  us 

3570 

STA     ICBAH,X 

6-8  weeks  to  effect  the  change;  send 

3580 

SEC     ;CALC    LENBTH 

your  current  moiling  label  along  with 

3590 

LDA    FR0 

you  rnew  address. 

3600 

SBC    FRl 

Renewal.  Should  you  wish  to  renew  your 

3610 

STA     ICBLL,X     ; STORE    AT     IOC 
B 

COMPUTE!  subscription  before  we 
remind  you  to.  send  your  current  mailing 

label  with  payment  or  charge  number 

3620 

LDA    FR0+1 

or  call  the  Toll  Free  number  listed  below. 

3630 

SBC    FRl+1 

New  Subscription.  Acne  year  (12  month) 

3640 

JMP     ICB-3     jexec     same     cmd 
as    last 

US  subscription  to  COMPUTII  Is  S24.00  (2 
years,  $45.00;  3  years,  $65.00.  For  sub- 

3650 

• 

scription  rates  outside  the  US,  see  stoff 

3660 

. 

pxage).  Send  us  your  name  and  address 

3670 

INIT     JSR    *1540     ;SRESET     INIT 

or  call  the  Toll  Free  number  fisited  below. 

3680 

J  I     LDA    l»END8<La 

Delivery  Problems.  If  you  receive  dupli- 
cate issues  of  COMPUTE!,  if  you  experi- 

3690 

STA     MEMLO 

ence  late  delivery  or  if  you  have  prob- 

3700 

LDA     «END/HI 

lems  with  your  subscription,  please  coil 

3710 

STA     MEMLO+1 

the  ToU  Free  number  listed  below. 

3720 

LDA     #ST8<L0 

3730 
3740 

STA    DQSVEC 
LDA     #ST/HI 

COIVIPUTEr 

3750 

STA     DOSVEC+1 

800-334-0868 

3760 

RTS 

In  NC  919-275-9809 

3770 

? 

3780 

; 

CMDTAB     ;all     spaces    are    one     s 

3790 
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Commodore 
Garbage  Collection 

Part  2 

Jim  Butterfield,  Associate  Editor 


Last  month,  we  looked  into  some  of  the  causes  of 
garbage  collection  delays,  and  ijrvestigated  some  of 
its  working  mechanisms.  It's  time  to  put  our  knowl- 
edge to  work  by  developing  some  rules. 


The  following  program  will  help  us  see  the  rules 
by  means  of  examples: 

100  DIM  A? (800) 

110  FOR  J=l  TO  800 

120  A$(J)="A" 

130  NEXT  J 

140  PRINT  "X" 

150  PRINT  FRE(0) 

160  PRINT  "Y" 

Rules  of  Garbage  Collection 

Rule  1:  There  are  static  (in  place)  strings  and  dy- 
namic (created)  strings.  Only  dynamic  strings 
have  garbage  collection  consequences. 

Proof:  RUN  the  above  program  which  contains 
only  static  strings.  There  will  be  no  significant 
delay  between  the  printing  of  X  and  Y.  Now 
change  line  120  to  read; 
120  A$0)=CHR$(65) 

RUN  once  again;  there  will  be  a  significant  pause 
between  the  printing  of  X  and  Y. 

Rule  2:  Garbage  collection  time  depends  on  the 
number  of  dynamic  strings  you  keep,  not  what 
you  throw  away. 
Proof:  Change  line  120  to  read: 
120  A$(J)  =  CHR$(65):A$(J)="A" 
RUN  the  program.  Even  though  we're  throwing 
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away  a  large  amount  of  garbage  {the  first 
A$(J)=),  there's  no  significant  delay. 

Rule  3:  Performing  a  garbage  collection  saves 
you  no  time  on  the  next  one. 

Proof:  Enter  line  120  as: 
120  A$(P  =  CHR$(65) 

RUN  and  note  the  delay.  Now  type:  GOTO  140. 
Note  that  the  delay  is  exactly  the  same  as  before; 
the  previous  collection  saved  us  no  time. 

Rule  4:  Doubling  the  number  of  strings  will  mul- 
tiply the  delay  by  4.  Mathematically,  we  can  say 
that  the  time  varies  as  the  square  of  the  number 
of  strings. 

Proof:  Change  the  value  of  800  in  lines  100  and 
no  to  400.  RUN  and  note  that  the  delay  be- 
tween the  printing  of  X  and  Y  drops  to  one- 
quarter  of  the  previous  time. 

This  last  rule  is  the  killer.  You  might  work 
out  a  test  program  using  ten  strings,  and  when 
your  program  works  satisfactorily  expand  to  one 
thousand  items.  But  your  garbage  collection  time 
doesn't  increase  by  a  factor  of  100;  it  jumps  to 
10,000  times  the  original  delay.  This  could  be- 
come crippling. 

Fixing  The  Problem 

If  you  know  what  to  look  for,  you  can  usually 
avoid  massive  garbage  collection  delays.  There's 
no  single  technique  that  will  do  the  job.  It's  best 
to  investigate  what's  causing  the  garbage  and  de- 
cide on  the  appropriate  action  to  eliminate  the 
problem. 

Here's  a  list  of  techniques  to  get  around  the 


y  SUPER  FORTH  64'  \ 
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garbage  collection  hang-up. 

1.  Don't  Move  Strings  Around 

Suppose  we  are  writing  a  program  to  input  sev- 
eral names  and  sort  them  into  alphabetical  order. 
It  would  seem  logical  to  move  the  names  so  as  to 
put  them  into  the  right  place.  Don't.  Use  an  in- 
dex array,  which  contains  only  numbers:  Move 
the  index  values,  not  the  strings. 
A  simple  example: 

100  PRINT  "INPUT  TEN  NAMES" 

110  DIM  N${10),I%C10) 

120  FOR  J=l  TO  10 

130  PRINT  "NAME"; J; 

140  INPUT  N$(J) 

150  I%(J)=J 

160  NEXT  J 

170  PRINT  "SORTING..." 

180  FOR  J=9  TO  1  STEP  -1 

190  FOR  K=l  TO  J 

200  IF  N${I%(K))  <=  N$(I%(K+1))  GOTO  220 

210  I=I%(K):I%{K}=I%(K+1) :I%(K+1)=I 

220  NEXT  K,J 

230  FOR  J=l  TO  10 

240  PRINT  N$(I%(J)) 

250  NEXT  J 

The  above  program  uses  a  bubble  sort  technique, 
which  is  notoriously  inefficient;  but  the  point 
here  is  that  the  strings  N$(..)  are  never  moved. 
Thus,  there  can  be  no  garbage  collection.  Note 
that  the  index  array  must  be  initialized  before 
use — see  line  150. 

2.  Clean  Up  Between  Blocks 

Suppose  you're  reading  in  a  large  file  of  students 
from  various  classes.  For  a  number  of  reasons — 
especially  processing  convenience  and  shortage 
of  memory — you  don't  read  in  all  the  students. 
Instead,  you  read  and  process  a  class  at  a  time. 
Before  reading  in  the  next  class,  set  all  stu- 
dent names,  to  null  strings.  Now,  force  a  garbage 
collection  with  a  statement  such  as  Z=FRE(0). 
There  will  be  few  or  no  strings  to  keep,  so  gar- 
bage collection  will  be  fast.  When  the  next  block 
of  data — the  next  class — comes  in,  it  wUl  have 
freshly  cleaned  memory  to  use. 

3.  Do  Local  Cleanups 

Many  programs  like  to  build  strings  from  GET 
statements.  The  code  often  looks  like  this; 

500  PRINT  "TYPE  IN  YOUR  NAME" 

530  N="" 

540  GET  K$:IF  K$=""  GOTO  540 

550  IF  K$=CHR5(13)  GOTO  500 

560  NS=N$+K$ 

570  GOTO  540 

600  REM  CONTINUE  

This  sort  of  thing  creates  a  lot  of  garbage.  Every 
time  line  550  is  executed,  a  new  N$  is  created 
and  the  old  one  is  thrown  away;  and  N$  gets 
bigger  and  bigger  all  the  time.  There's  also  gar- 
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—  Start  of  variables 

—  Start  (bottom)  of  BASIC 


bage  from  K$,  but  it's  only  a  single  character  at  a 
time. 

If  N$  and  K$  were  our  only  strings,  we'd 
have  no  problem.  Garbage  collection  time  de- 
pends only  on  what  you  keep,  not  what  you 
throw  away;  and  keeping  two  strings  isn't  much 
work.  However,  if  this  were  part  of  a  program 
which  also  had  a  thousand  names  and  addresses, 
we'd  be  in  trouble;  everything  would  need  to  be 
reclaimed,  and  the  delays  would  become  imprac- 
tically  long. 

Local  Collection 

If  we're  careful,  we  can  get  around  this  problem 
by  setting  the  stage  for  a  "local"  collection.  We 
might  reason  as  follows:  During  the  above  code, 
N$  and  K$  are  our  only  working  strings.  If  we 
make  all  the  other  strings  disappear  momen- 
tarily, we  may  generate  all  the  garbage  we  like, 
since  garbage  collections  will  be  virtually  in- 
stantaneous. When  we're  finished,  we  must  care- 
fully force  one  last  collection  to  get  rid  of  any 
leftover  garbage,  and  then  make  these  missing 
strings  reappear. 

We  can  do  this  by  temporarily  moving  the 
top-of-BASIC  pointer  down  to  match  the  dy- 
namic string  pointer.  This  will  fool  the  garbage 
collection  routine  into  thinking  that  there  are  no 
dynamic  strings  except  the  ones  we  have  just  cre- 
ated. But  we  must  remember  to  put  the  top-of- 
BASIC  pointer  back  when  the  job  is  finished,  or 
we'll  suffer  permanent  loss  of  memory. 

The  top-of-BASIC  pointer  may  be  found  on 
the  VIC  and  64  at  addresses  55  and  56.  We  must 
save  the  values  there  so  that  we  can  replace 
them  later,  and  then  use  the  contents  of  the 
string  pointer  (51  and  52)  to  change  the  top-of- 
BASIC  pointer.  (In  the  PET/CBM,  the  top-of- 
BASIC  pointer  is  at  52  and  53,  and  the  string 
pointer  is  at  48  and  49.  We'll  show  the  program- 
ming for  the  VIC/64  below,  but  you  may  adjust 
it  for  your  machine.) 


Here's  how  we  would  change  the  above 
coding  to  eliminate  garbage  collection  dangers: 

500  PRINT "TYPE  IN  YOUR  NAME" 

510  A1=PEEK(55) :A2=PEEK(56) 

520  POKE  55, PEEK ( 51 ): POKE  56,PEEK(52) 

530  N="" 

540  GET  K$;IF  K$=""  GOTO  540 

550  IF  K$=CHR$(13)  GOTO  580 

560  N$=N$+K$ 

570  GOTO  540 

580  Z=FRE(0) 

590  POKE  5 5, Al: POKE  56, A2 

600  REM  CONTINUE 

It  seems  complex,  and  you  must  indeed  program 
with  great  care.  But  it  solves  the  problem. 

4.  Use  Numeric  Values 

Who  says  that  everything  that  seems  alphabetic 
must  be  a  string?  A  month  can  be  coded  1  to  12; 
a  grade  of  A  to  F  can  be  a  numeric  from  1  to  6. 

Where  the  number  of  possible  strings  is 
limited — a  class,  a  region,  an  airline — using  a  nu- 
meric system  is  quite  feasible.  You  can  always 
look  up  the  string  you  want  by  using  the  number 
as  an  index  and  getting  the  name  out  of  an  array. 

I  wouldn't  recommend  that  we  all  lose  our 
names  and  become  numbers  within  the  com- 
puter. But  a  little  sensible  data  reduction  can  save 
a  lot  of  garbage  collection. 


5.  Brute  Force 

Sometimes  conventional  methods  fail.  Your  data 
consists  of  a  large  number  of  names  which  have 
been  read  in  from  a  fUe.  You  need  to  make 
changes  to  a  substantial  number  of  these  names. 
There  seems  to  be  no  way  you  can  control  the 
amount  of  garbage.  What  then? 

Use  The  Disk 

When  all  else  fails,  write  out  all  your  strings  to 
disk.  Set  the  strings  to  null  values  and  force  a 
garbage  collection — this  will  take  place  instanta- 
neously. Now  read  them  back  in  to  the  newly 
cleaned- up  memory. 

You  can  watch  the  string  pointer  (addresses 
51  and  52  on  the  VIC/64),  and  when  it  seems  to 
be  getting  near  the  danger  point,  initiate  this 
whole  operation.  At  least  it  will  be  under  your 
control;  you  can  print  a  message  to  the  user 
(TAKE  A  BREAK  WHILE  I  UNSCRAMBLE  MY 
BRAINS),  and  may  even  get  the  bonus  of  having 
generated  a  data  backup  or  checkpoint  in  case  of 
loss  of  power. 

And  it's  a  lot  better  than  having  the  machine 
go  dead  for  twenty  minutes  or  more. 
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Stress  Reduction 
Software 

Relax,  a  computer-controlled 
biofeedback  system  aimed  at 
stress  reduction,  is  available 
from  Synapse  Software  for  the 
Atari,  Commodore,  Apple,  and 
IBM  personal  computers. 

The  system  allows  the  user 
to  observe  and  measure  his  or 
her  stress  levels  on  a  video 
monitor  or  television  set,  and 
provides  a  method  to  attempt  to 
reduce  those  levels. 

A  headband  with  three 
electromyograph  (EMG)  sensors 
measures  tension  in  the  fore- 
head's frontalis  muscle.  The 
software  converts  these  mea- 
surements into  visual  patterns 
designed  to  monitor  the  stress 
level.  An  audio  tape  has  a  pro- 
gram of  therapeutic  relaxation 
exercises,  and  a  workbook  pro- 
vides guidelines  for  reducing 
stress  and  establishing  a  per- 
sonal stress  management  profile. 

Relax  is  available  for 
$139.95. 

Synapse  Software 
5221  Central  Avenue 
Richmond,  CA  9480i 
(415)  527-7751 

Apple  Educational 
Games 

Methods  and  Solutions,  Inc., 
has  announced  its  Mindplay  line 
of  educational  software  games 
that  teach  children  from  four 
years  of  age  and  up  skills  in 
measurement,  following  direc- 
tions, memory,  map  reading, 
tactics,  vocabulary,  grammar, 
art,  and  mathematics. 
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The  six  educational  games 
in  the  series  include  Bake  & 
Taste,  programs  that  teach 
youngsters  to  measure  and  fol- 
low directions;  Dyno-Quest,  a 
game  of  memory,  map  reading, 
tactics,  and  the  discovery  of 
dinosaurs;  Picture  Perfect,  a 
joystick-based  game  that  teaches 
children  to  draw  and  to  color 
shapes,  designs,  and  animals; 
Race  the  Clock,  a  matching  game 
of  words  and  hidden  pictures; 
Cat  'n  Mouse,  a  maze  game  using 
word  and  picture  associations; 
and  Math  Magic,  a  monster- 
filled  arcade  game  that  teaches 
addition  and  subtraction. 

The  games  are  priced  from 
$34.95,  and  are  available  for  the 
Apple  II  family  of  computers 
and  for  the  IBM  PC  and  PCjr. 
They  will  be  available  for  the 
Commodore  64  this  fall. 

Methods  and  Solutions,  inc. 
300  Unicorn  Park 
Woburtj,  M/1  01 801 
(617)933-5298 

Coleco  Adam 
Data  Packs 

Victory  Software  has  introduced 
blank  data  packs  for  the  Coleco 
Adam  computer.  The  blank, 
Preformatted  tapes  store  about 
250  pages  of  information. 

The  tapes  are  available  for 
a  suggested  price  of  $3.98. 

Victory  Software  has  also 
announced  its  new  line  of 
games  for  the  Adam,  including 
Bounty  Hunter  ($19.95),  an  Old 
West  text  adventure  game. 

Victory  Software  Corporation 
1410  Russell  Road 
Paoli,  PA  19301 
(800)  243-1515 
(215)  296-3787 


Apple,  IBM 
Classroom  Softwore 

Classmate,  a  classroom  grading 
and  attendance  software  pack- 
age, has  been  released  by 
Davidson  &  Associates  for  the 
Apple  II,  He  and  II -I- ,  and  the 
IBM  PC,  PCjr  and  XT. 

The  program  allows  users 
to  enter,  modify,  and  store  an 
unlimited  number  of  class  lists 
for  up  to  51  students.  It  stores 
grades,  attendance  records  and 
teacher  comments,  and  com- 
putes weighted  averages,  graphs 
grade  distribution,  class 
rankings  and  final  grades,  and 
displays  or  prints  out  all  records. 

The  program  also  can  sort 
by  student  name  or  class  des- 
ignation, and  can  display  or 
print  out  individual  scores, 
either  on  a  particular  assign- 
ment or  for  all  assignments. 

The  program  will  give  out 
either  a  single  student's  or  a  full 
class's  complete  or  partial  record. 

In  addition,  the  program 
can  generate  individualized  par- 
ent and  student  reports. 

Classmate  is  available  for 
$49.95. 

Davidson  &  Associates 
6069  Groveoak  Place,  #12 
Rancho  Palos  Verdes,  CA  90274 
(213)  383-9473 

Foreign  Language 
Tutorials 

Soflight  Software,  a  division  of 
M.  P.  Computer  Services  Cor- 
poration, has  introduced  a  new 
product  line  of  foreign  language 
development  software. 

The  programs  were  de- 


signed  for  the  Apple  II  and  He, 
with  software  for  the  Atari  and 
IBM  PC  and  PCjr  to  be  avail- 
able in  the  future. 

One  disk  drive  is  required 
to  run  the  program. 

All  programs  teach  1000  of 
the  most  common  words  in  the 
target  language.  Where  words 
have  more  than  one  meaning, 
the  program  allows  for  those 
other  meanings,  along  with  En- 
glish translation. 

The  package  retails  for 
$56.95.  Languages  currently 
available  include  Spanish, 
French,  German,  Italian,  Biblical 
Hebrew,  modern  Hebrew,  and 
Arabic.  Latin,  Russian,  Polish, 
Swedish,  and  classical  Greek 
will  be  available  in  the  near 
future. 

Each  language  program  is 
menu-driven  with  sequential  re- 
view, random  review,  and  quiz 
options. 

Soflight  Software 
2223  Encinal  Station 
Sunnyvale,  CA  94087 
(408)  735-0871 

Personal  Finances 
Software 

A  software  product  designed  to 
help  consumers  make  personal 
financial  decisions  has  been  an- 
nounced by  Electronic  Arts. 
Called  Financial  Cookbook,  the 
program  contains  "recipes,"  or 
formulas,  that  produce  answers 
about  money  matters. 

Through  the  program's  32 
different  recipes,  users  can  fig- 
ure such  data  as  returns  on  in- 
vestments, effective  tax  shelters 
and  IRAs,  effects  of  inflation, 
mortgage  calculations,  and  tax 
rates. 

Each  recipe  asks  the  user  to 
enter  variables,  such  as  interest 
or  inflation  rates,  and  then 
makes  calculations  based  on 
those  numbers. 

Calculations  for  1 1  basic  tax 
shelters  available  to  most  con- 
sumers are  found  in  the  recipes. 
The  instruction  manual  includes 


a  tutorial,  recipe  instructions, 

and  index. 

Financial  Cookbook  is  avail- 
able for  the  entire  Apple  II  line, 
the  IBM  PC  and  PCjr,  Commo- 
dore 64,  and  Atari  800. 

Suggested  retail  price  is  $50. 

Electronic  Arts 
2755  Campus  Drive 
San  Mateo,  CA  94403 
(415)  571-7171 


Text  Adventure 
For  Youngsters 

Infocom  has  announced  Sea- 
stalker,  an  interactive  text  ad- 
venture game  for  ages  9  and  up. 

In  it,  players  aboard  the 
specially  equipped  submarine 
Scimitar  must  save  the  Aqua- 
dome,  earth's  first  undersea  re- 
search station. 

Unfortunately,  the  Scimitar 
hasn't  been  tested  in  deep 
water,  and  the  crew  of  the 
Aquadome  may  have  a  traitor  in 
its  ranks.  If  the  right  course  isn't 
charted,  players  might  end  up 
as  shark  bait. 

Solving  hints  are  included 
in  the  game  package. 

Seastalker  is  available  for 
the  Apple  II,  Atari,  Commodore 
64,  IBM  PC  and  PCjr,  and  TI- 
99/4A  at  a  cost  of  $39.95. 

Infocom,  Inc. 
55  Wheeler  St. 
Cambridge,  MA  02138 
(617)492-1031 

New  Product  releases  are  selected  from  sidj- 
missiotis  for  reasons  of  timeliness,  avnilablc 
space,  niid  general  interest  to  our  readers.  Wc 
regret  thai  we  arc  unable  lo  select  nil  new 
product  submissions  for  publication.  Readers 
should  be  aware  that  loe  present  here  some 
edited  version  of  material  submitted  by  ven- 
dors and  are  unable  to  vouch  for  its  accuracy 
at  time  of  publication. 

COMPUTE!  welcomes  notices  of  up- 
coming civnts  ivui  requests  that  the 
sponsors  send  a  short  description,  their 
name  and  phone  number,  and  an  address 
to  which  interested  readers  may  write  for 
further  information.  Please  send  notices 
at  least  three  months  before  the  date  of  the 
event,  to:  Calendar,  P.O.  Box  5406, 
Greensboro,  NC  27403.  Q 


COMMODORE  64 
HACKERS  ONLY 

«B0OKWARE  FROM  ABACUS « 

>  *  •  Unravel  Ihe  mysleries  of  the 
misunderslood  floppy  disk. 
300+  paaes  ol  irMleptN  inlor- 
mation.  SeQuential,  rdatw 
random  files.  Many  useful 
utifitlBS,  1541  ROM  tisting 
fully  commented.      $19.95 

•■••A  mactilne  language 
reference  sulde  spedficaily  to 
the  Commodore  H  All  in- 
stnjctions  fully  ciplained. 
Witfi  ttiese  complete  program 
listings  for  an  ASSEMBLER, 
DISASSEMBLER  &65t0  Sim 
ulator.  200+  pages.  $19.S6 

•  •  300+  page  detailed  guide  lo 
the  Internals  ol  your  favorite 
corrputer.  Covers  Qraphics. 
syntnesiier.  kernal.  BASIC. 
Includes  full  commented 
ROM  listings.  S19.9S 

OTHER  TITLES  COMING  SOON! 

ASK  FOR  FREE  CATALOG 

FOR  QUICK  SERVICE 

PHONE  616-241-5510 

ma 


Abacus  mH  Software 


P.O.  Bdi  7211  Grand  Rapids,  Ml  49510  Add  S2.00 
postage  and  handling.  Foreign  add  $4.00.  Michigan 
residence  add  4%.  MC,  VfSA,  AMEX  accepted. 


KBASF   DISKETTES 
11.75  WfTH  UBRARYCASEII1I 

DIGITAL  CASSETTES 
C-10for35c(100Lot)!!!! 

FOR  YOUR  COMPUTER 

ALL  DISKS  AND  CASSETTES  ARE 

-tOa%  ERROFI  FREE  (Diskanes  Fully  Cartifiadl- 
-  LIFETIME  GUARANTEED - 

-  CUSTOM  LENGTHS  AVAILABLB- 

COMPUTER  TAPE  PRICES 

26  LOT  100  LOT  1000  LOT 


C-1Q 

.50/12.50 

.35/36.00 

.30/300.00 

C-20 

.50/13.75 

.40/40.00 

.35/350,00 

C-30 

.60/15.00 

.45/45.00 

,40/400,00 

DACC    T\pC 

GRADE  TAPES 
.40/40.00 

C-10 

.55/13.75 

.35/350.00 

c-20 

.60/15.00 

.45/45.00 

.40/400.00 

C-30 

.65/16.25 

.50/50.00 

,45/450,00 

QUALITY  NORELCO  CASSETTE  CASE.. 
AND  LABEL  PRICES 

I  WITH  CA  SSETTE  QRDSRS  QNL  Y] 
2S-249Caus/.20Ea.       250/.13Ea.       1000/. IIEb. 
Ubels- Sheet  .20     12/.20     120/1.70     1200/14.50 
Tractor  Feed  Cassotte  Labels  11  up)  1000/14.50 

-INTRODUCTORY  OFFER- 
BASF  5  'A  Single  Side  Double  Density  Diskettes 
with... Hub  Ring.  Lal»l.  Jscltot,  W/Protact  Stickara 
-Free  Hard  Library  Case  with   Everv  10  Disks— 

10  LOT  20  LOT  50  LOT  100  LOT 

2.00/20.00    1,95/39.00    1.90/90.00    1.75/175.00 

All  Prices  Include  U.S.  Stirpping  h  Handling 

—  Write  For  Volume  Prices— 

-Phone  Orders  Add  S2.50C.O.D.  Fse- 

(Canadlan  Customers  May  Call  or 

Write  lor  Shipping  Cosisl 

Send  Castiier's  Checks,  Money  Orders,  b  Checks  to: 

CASS-A-TAPES 

BOXS123-C 

KANSAS  CITY,  MO,  64112 

816-444-4651 
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The  Automatic  Proofreader 

For  VIC  64  And  Atari 


Charles  Brannon,  Program  Editor 

At  last  there's  a  way  for  your  coiupntcr  to  help  you  check 
your  typing.  "The  Automatic  Proofreader"  zvill  make  entering 
programs  faster,  easier,  and  more  accurate. 


The  strong  point  of  computers  is  that  they  excel  at 
tedious,  exacting  tasks.  So  why  not  get  your  computer 
to  check  your  typing  for  you? 

With  "The  Automatic  Proofreader"  nestled  in 
your  VIC-20,  Commodore  64,  or  Atari  computer,  every 
line  you  type  in  will  be  verified.  It  displays  a  special 
code,  called  a  checksum,  at  the  top  of  the  screen.  The 
checksum,  either  a  number  (VIC/64)  or  a  pair  of  letters 
(Atari),  corresponds  to  the  line  you've  just  typed.  It 
represents  every  character  in  the  line  summed  together, 
A  matching  code  in  the  program  listing  lets  you  com- 
pare it  to  the  checksum  which  the  Proofreader  displays. 
A  glance  is  all  it  takes  to  confirm  that  you've  typed  the 
line  correctly. 

Entering  The  Automatic  Proofreader 

Commodore  (VIC/64)  owners  should  type  in  Program 
1.  Program  2  is  for  Atari  users.  Since  the  Proofreader  is 
a  machine  language  program,  be  especially  diligent. 
Watch  out  for  typing  extra  commas,  or  a  letter  O  for  a 
zero,  and  check  every  number  carefully.  If  you  make  a 
mistake  when  typing  in  the  DATA  statements,  you'll 
get  the  message  "Error  in  DATA  statements"  when  you 
RUN  the  program.  Cineck  your  typing  and  tr}'  again. 

When  you've  typed  in  The  Automatic  Proofreader, 
SAVE  it  to  tape  or  disk  at  least  twice  before  running  it  for 
the  first  time.  If  you  mistype  the  Proofreader,  it  may 
cause  a  system  crash  when  you  first  run  it.  By  SAVEing 
a  copy  beforehand,  you  can  reLOAD  it  and  hunt  for 
your  error.  Also,  you'll  want  a  backup  copy  of  the 
Proofreader  because  you'll  use  it  again  and  again — 
every  time  you  enter  a  program  from  COMPUTE!. 

When  you  RUN  the  Proofreader,  the  program  will 
be  POKEd  safely  into  memory,  then  it  will  activate 
itself.  If  you  ever  need  to  reactivate  it  (RUN/STOP — RE- 
STORE or  SYSTEM  RESET  will  disable  it),  just  enter 
the  command  SYS  886  (VIC/64)  or  PRINT  USR(1536) 
for  the  Atari. 

Using  The  Proofreader 

Now,  let's  see  how  it  works.  LIST  the  Proofreader 
program,  move  the  cursor  up  to  one  of  the  lines,  and 
press  RETURN.  If  you've  entered  the  Proofreader 
correctly,  a  checksum  will  appear  in  the  top-left  corner 
of  your  screen. 

Try  making  a  change  in  the  line  and  hit  RETURN. 
Notice  that  the  checksum  has  changed.  All  VIC  and  64 
listings  in  COMPUTE!  now  have  a  number  appended  tci 
the  end  of  each  line,  for  example,  :rem  123.  Don't 
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enter  this  statement.  It  is  just  for  your  information.  The 
rem  is  used  to  make  the  number  harmless  if  someone 
does  type  it  in.  It  will,  however,  use  up  memory  if  you 
enter  it,  and  it  will  cause  the  checksum  displayed  at 
the  top  of  the  screen  to  be  different,  even  if  you  entered 
the  rest  of  the  line  correctly. 

The  Atari  checksum  is  found  immediately  to  the 
left  of  each  line  number.  This  makes  it  impossible  to 
type  in  the  checksum  accidentally,  since  a  program 
line  must  start  with  a  number. 

Just  type  in  each  lino  (without  the  printed 
checksum),  and  check  the  checksum  displayed  at  the 
top  of  the  screen  against  the  checksum  in  the  listing. 
If  they  match,  go  on  to  the  next  line.  If  they  don't, 
there's  a  mistake.  You  can  correct  the  line  immediately, 
instead  of  waiting  to  find  the  error  when  you  RUN  the 
program. 

The  Proofreader  is  not  picky  with  spaces.  It  will 
not  notice  extra  spaces  or  missing  ones.  This  is  for 
your  convenience,  since  spacing  is  generally  not  im- 
portant. Occasionally  proper  spacing  is  important,  but 
the  article  describing  the  program  will  warn  you  to  be 
careful  in  these  cases. 

Nobody's  Perfect 

Although  the  Proofreader  is  an  important  aid,  there 
are  a  few  things  to  watch  out  for.  If  you  enter  a  line  by 
using  abbreviations  for  commands,  the  checksum  will 
not  match  up.  This  is  because  the  Proofreader  is  very 
literal:  It  looks  at  the  individual  letters  in  a  line,  not  at 
tokens  such  as  PRINT.  There  is  a  way  to  make  the 
Proofreader  check  such  a  line.  After  entering  the  line, 
LIST  it.  This  makes  the  computer  spell  out  the  abbre- 
viations. Then  move  the  cursor  up  to  the  line  and  press 
RETURN.  It  should  now  match  the  checksum.  You 
can  check  whole  groups  of  lines  this  way.  Atari  users 
should  beware  of  using  ?  as  an  abbreviation  for  PRINT — 
they're  not  the  same  thing  in  the  Proofreader's  eyes. 

The  checksum  is  a  sum  of  the  ASCII  values  of  the 
characters  in  a  line.  VIC  and  64  owners  may  wonder 
why  the  numbers  are  so  small,  never  exceeding  255. 
This  is  because  the  addition  is  done  only  in  eight  bits. 
A  result  over  255  will  roll  over  past  zero,  like  an  odome- 
ter past  99999.  On  the  Atari,  the  number  is  turned  into 
two  letters,  both  for  increased  convenience  and  to  make 
the  Proofreader  shorter.  For  the  curious,  the  letters 
correspond  to  the  values  of  the  left  and  right  nybbles 
added  to  33  (to  offset  them  into  the  alphabet).  This 
number  is  then  stored  directly  into  screen  memory. 

Due  to  the  nature  of  a  checksum,  the  Proofreader 
will  not  catch  all  errors.  Since  I-l-3-t-5  =  34-l+5,  the 
Proofreader  cannot  catch  errors  of  transposition.  In 
fact,  you  could  t\'pe  in  the  line  in  any  order,  and  the 
Proofreader  wouldn't  notice.  Anvtime  the  Proofreader 


seems  to  act  strange,  keep  this  in  mind.  Since  the  ASCII 
values  of  the  number  18  (49  +  56)  and  63  (54+51)  both 
equal  105,  these  numbers  are  equal  according  to  the 
Proofreader.  There  really  is  no  simple  way  to  catch 
these  kinds  of  errors.  Fortunately,  the  Prool^reader 
will  catch  the  majority  of  the  typing  mistakes  most 
people  make. 

If  you  want  the  Proofreader  out  of  your  way,  just 
press  SYSTEM  RESET  or  RUN/STOP— RESTORE.  If 
you  need  it  again,  enter  SYS  828  (VlC/64)  or  PRINT 
USR(1536)  (Atari).  You  must  disable  the  Proofreader 
before  doing  any  tape  operations  on  the  VIC  or  64. 

Hidden  Perils 

The  Proofreader's  home  in  the  VIC  and  64  is  not  a  very 
safe  haven.  Since  the  cassette  buffer  is  wiped  out  during 
tape  operations,  you  need  to  disable  the  Proofreader 
with  RUN/STOP— RESTORE  before  you  SAVE  your 
program.  This  applies  only  to  tape  use.  Disk  users  or 
Atari  owners  have  nothing  to  worry  about. 

Not  so  for  VIC  and  64  owners  with  tape  drives. 
What  if  you  type  in  a  program  in  several  sittings?  The 
next  day,  you  come  to  your  computer,  LOAD  and 
RUN  the  Proofreader,  then  try  to  LOAD  the  partially 
completed  program  so  you  can  add  to  it.  But  since  the 
Proofreader  is  trying  to  hide  in  the  cassette  buffer,  it  is 
wiped  out! 

What  you  need  is  a  way  to  LOAD  the  Proofreader 
after  you've  LOADed  the  partial  program.  The  problem 
is,  a  tape  load  to  the  buffer  destroys  what  it's  supposed 
to  load. 

After  you've  typed  in  and  RUN  the  Proofreader, 
enter  the  following  lines  in  direct  mode  (without  line 
numbers)  exactly  as  shown: 

A$  =  ''PROOFREADER.T":    BS="{10    SPACES}":    FOR 
X    =    1    TO    4:    A$=A$+B$:    NEXTX 

FOR  X  =  886  TO  1018:  A$=A$+CHR$ ( PBEK{X) ) : 
NEXTX 

OPEN  1,1,1,A$:CL0SE1 

After  you  enter  the  last  line,  you  will  be  asked  to 
press  record  and  play  on  your  cassette  recorder.  Put 
this  program  at  the  beginning  of  a  new  tape.  This  gives 
you  a  new  way  to  load  the  Proofreader.  Anytime  you 
want  to  bring  the  Proofreader  into  memory  without 
disturbing  anything  else,  put  the  cassette  in  the  tape 
drive,  rewind,  and  enter: 

OPENl:CLOSEl 

You  can  now  start  the  Proofreader  by  typing  SYS 
886.  To  test  this,  PRINT  PEEK(886)  should  return  the 
number  173.  If  it  does  not,  repeat  the  steps  above, 
making  sure  that  A$  ("PROOFREADER.T")  contains 
13  characters  and  that  B$  contains  10  spaces. 

You  can  now  reload  the  Proofreader  into  memory 
whenever  LOAD  or  SAVE  destroys  it,  restoring  your 
personal  typing  helper. 

Incidentally,  you  can  protect  the  cassette  buffer  on 
the  Commodore  64  with  POKE  178,165,  This  POKE 
should  work  on  the  VIC,  but  it  has  caused  numerous 
problems,  probably  due  to  a  bug  in  the  VIC  operating 
system.  With  this  POKE,  the  64  will  not  wipe  out  the 
cassette  buffer  during  tape  LOADs  and  SAVEs. 


Program  1:  V1C/64  Proofreader 

100  PRINT "{CLR] PLEASE  WAIT . . . " :FORI=886TO 

1018 ; READA:CK=CK+A: POKEI , A: NEXT 
110  IF  CKO 17539  THEN  PRINT" E DOWN} YOU  MAD 
E  AN  ERROR": PRINT" IN  DATA  STATEMENTS. 
":END 
120  SYS886:PRINT" ECLR} {2  DOWN] PROOFREADER 

ACTIVATED. ":NEW 
886  DATA  173,036,003,201,150,208 
892  DATA  001,096,141,151,003,173 
898  DATA  037,003,141,152,003,169 
904  DATA  150,141,036,003,169,003 
910  DATA  141,037,003,169,000,133 
916  DATA  254,096,032,087,241,133 
922  DATA  251,134,252,132,253,008 
928  DATA  201,013,240,017,201,032 
934  DATA  240,005,024,101,254,133 
940  DATA  254,165,251,166,252,164 
946  DATA  253,040,096,169,013,032 
952  DATA  210,255,165,214,141,251 
958  DATA  003,206,251,003,169,000 
964  DATA  133,216,169,019,032,210 
970  DATA  255,169,018,032,210,255 
976  DATA  169,058,032,210,255,166 
982  DATA  254,169,000,133,254,172 
988  DATA  151,003,192,087,208,006 
994  DATA  032,205,189,076,235,003 
1000  DATA  032,205,221,169,032,032 
1006  DATA  210,255,032,210,255,173 
1012  DATA  251,003,133,214,076,173 
1018  DATA  003 

Program  2:  Afart  Proofreader 

100 
110 

120 


130 
1  40 


GRAPHICS  0 

FDR  1=1536  TO  1700:READ  A:POKE  I 

, A: CK=CK+A: NEXT  I 

IF  CKO19072  THEN  "^  "Error  in  DA 

TA  statements.  Check  typing":END 

A  =  USR  i 1536) 

?  :?  "Automatic  Proo-freader  now 
ated. " 


150 

1536 

1542 

154B 

1554 

1560 

1566 

1572 

1578 

1584 

1590 

1596 

1602 

1608 

1614 

1620 

1626 

1632 

1638 

1644 

16S0 

1656 

1662 

1668 

1674 

16B0 

1686 

1692 

1698 


act  i  vi 

END 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


104, 160, 0, 185, 26, 3 
201, 69, 24 0,7, 200, 200 
192, 34, 208, 243, 96, 200 
169,74,153,26,3, 200 
169, 6, 153, 26, 3, 162 
0, 189, 0, 228, 157, 74 
6, 232, 224, 16, 208, 245 
169, 93, 14 1 , 78. 6, 169 
6, 141 , 79, 6, 24. 173 
4,  228,  105,  1  .'141  ,  95 
6,  173,5, 228,  105,0 
141,96,6, 169,0, 133 
203, 96, 2  4  7, 238, 125, 24  1 
93, 6, 244, 241 , 1 15, 24  1 
124, 241 , 76, 205, 233, 0 
0,  0, 0. 0, 32, 62 
246,8, 20  1 ,  155,240,  13 
201 , 32, 240, 7, 72, 24 
101 , 20  3, 133, 203, 104, 40 
96, 72, 152, 72, 138, 72 
160, 0, 169, 128, 145, 88 
200, 192, 40, 208, 249, 1 65 
203,74, 74, 74, 74, 24 
105, 161 , 160, 3. 145, SS 
165,203,41, 15,24, 105 
161 , 200, 145,88, 169, 0 
133, 203, 104, 170, 104. 168 
104, 40, 96 
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How  To  Type  COMPUTEi's  Programs 


Many  of  the  prcigiiims  uhk:h  are  listed  in  COMI'UTE!  contain 
special  conlml  cliiir.uicts  (ciirsor  control,  color  keys,  inverse 
video,  etc.).  To  m<ike  it  eosy  lo  loll  extictlv  what  to  type  when 
entering  one  ot  these  programs  into  your  computer,  we  have 
established  the  toikiwing  listins:;  convontiotis.  There  is  a 
separate  key  lor  eacii  romputer,  Refer  to  the  appropriate 
tables  when  vou  come  .icross  an  unusual  svmbol  in  a  program 
listing.  If  you  are  unsLire  how  to  actually  enter  ii  control 
character,  consult  vour  computer's  manuals. 

Atari  400/800 

Characters  in  inverse  video  vvil!  appear  like;  prrmTfTrmr 
Hnter  these  characters  with  the  Atari  logct  key,  {Al . 

When    you    see  Type  Se« 


CCLEftRJ 

ESC 

SHIFT  < 

K 

Clear  Screen 

CUP> 

ESC 

CTRL  - 

* 

Cursor  Up 

CDDWNJ 

ESC 

CTRL  - 

+ 

Cursor   Down 

tLEFT> 

ESC 

CTRL  + 

*^ 

Cursor  Left 

fRieHT> 

ESC 

CTRL  « 

+ 

Cursor  Right 

CBACK  SJ 

ESC 

DELETE 

4 

Backspace 

CDELETEJ 

ESC 

CTRL  DELETE 

a 

Delete  character 

{INSERT} 

ESC 

CTRL  INSERT 

u 

Insert  character 

CDEL  LINES 

ESC 

SHIFT  DELETE 

n 

Delete  line 

CINS  LINE} 

ESC 

SHIFT  INSERT 

a 

Insert  line 

fTABJ 

ESC 

TAB 

* 

TAB  key 

€CLR  TAB> 

ESC 

CTRL  TAB 

a 

Clear  tab 

{SET  TAB} 

ESC 

SHIFT  TAB 

Q 

Set  tab  stop 

{BELL} 

ESC 

CTRL  2 

G 

Ring  buzzer 

{ESC} 

ESC 

ESC 

% 

Escape  key 

Graphics  characlms,  such  as  CTR].-T,  the  ball  character*  will 
appear  as  the  "norma!"  letter  enclosed  in  braces,  e.g.  (T), 

A  series  of  identical  control  characters,  such  as  10  sfsaces, 
three  cursor-lefts,  or  20  CTRL-R's,  will  appear  as  ill] 
SPACES! .  I  3  LETT),  i20  Rl,  etc.  If  the  character  in  braces  is 
in  inverse  video,  that  charactei-  or  characters  should  be  en- 
tered with  Hie  /\tari  lot^o  key.  For  evaniple,  i  n  !  means  lo 
enlera  reverse-field  heart  willi  CTKL-conima,  t  Sai!)  nie,uis  lii 
enter  five  in\erse-vide(!  CI  RL-U's. 

Commodore  PET/CBMA^IC/64 

Generally,  any  PHT'/C15M/V1G'64  program  listings  will  contain 
words  within  braces  which  spell  out  any  special  characters: 
I  DOWN  !  wuidd  mean  to  press  the  cursor  down  key.  I  5 
SPACES  }  would  mean  to  press  the  space  bar  five  times. 

To  indicate  that  a  key  should  be  shifted  (hold  down  the 
SHIFT  kev  while  pressing  the  other  key),  the  key  would  be 
underlined  in  our  lislini;s.  Tor  example,  S  would  mean  to 
type  the  B  key  while  holding  Ihe  shift  key.  !f  you  find  an 
underlined  key  eiicio.sed  in  braces  (e.g.,  (HI  N]),  you  should 
typie  the  key  as  many  times  as  Indicated  (in  our  e.xample, 
you  would  enter  ten  shifted  N's).  Some  graphics  characters 
are  inaccessible  from  the  keyboard  on  CBM  Business  models 
{32N,  S032). 

For  the  VIC  and  64,  if  a  key  is  enclosed  in  special  brackets, 
f;  >],  you  should  hold  down  the  Gi"i»i(irfort'Avi/ while  pressing 
the  key  inside  the  special  brackets.  (The  Commodore  key  is 
the  key  in  the  lower  left  corner  of  the  keyboard.)  Again,  if 
the  key  is  preceded  by  a  number,  you  should  press  the  key 
as  many  times  as  indicated. 

Rarely,  you'll  see  in  a  Commodore  64  program  a  solitary 
letter  of  the  alphabet  enclosed  in  braces.  These  characters 
can  be  entered  by  holding  down  the  CTRL  key  while  typing 
the  letter  in  the  braces.  For  example,  {A  }  would  indicate  that 
you  should  press  CTRL- A. 

About  the  quote  mode:  you  know  that  you  can  move  the 
cursor  around  the  screen  with  the  CRSR  keys.  Sometimes  a 
programmer  will  want  to  move  the  cursor  under  program 
control.  That's  why  you  see  all  the  (LEFD's,  {HOMEI's, 
and  iBLC  )'s  in  our  programs.  The  only  way  the  computer 
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can  tell  the  difference  between  direct  and  programmed  cursor 
control  is  the  quote  mode. 

Once  you  press  the  quote  (the  double  quote,  SHIFT-2), 
you  are  iii  the  quote  niode.  If  you  type  something  and  then 
try  to  change  it  by  moving  the  cursor  left,  you'll  only  get  a 
bunch  of  reverse-video  lines.  These  are  the  symbols  for 
cursor  left.  The  only  editing  key  that  isn't  programmable  is 
the  DEL  key;  you  can  still  use  DEL  to  back  up  and  edit  t)ie 
line.  Once  you  type  another  quote,  you  are  out  of  quote  mode. 

You  also  go  into  quote  mode  when  vou  INSerT  spaces 
into  a  line.  In  any  case,  the  easiest  way  to  get  out  of  quote 
mode  is  to  just  press  RETURN.  You'lf  then  be  out  of  quote 
mode  and  you  can  cursor  up  to  the  mistyped  line  and  fix  it. 

Use  the  following  tables  when  entering  special  characters: 


VIC  And  64 

When  You 


Read: 

IclrI 

(home] 

{UP] 

{down] 
I  left} 
{right J 

[RVSl 

[off) 

{BLKl 

Iwht) 

[RED) 
{CYN) 
(PUR) 


Press: 


See: 


SHIFT 


CLR'HOME 

SHIFT 

♦  CRSR  ^ 

4  CBSB  ^ 

SHIFT 

^CRSR^ 

When  You 

Read:         Press:     See: 


4hCRSRHH 


CTRL 

9 

CTRl 

« 

CTRL 

1 

CTRL 

2 

CTRL 

3 

CTRL 

^ 

H 


All  Commodore  Machines 

C I e.ir. Screen    (CLR) 
Home- Cursor  (  HOME) 
CuiscirUp        (UPl 
Cursor  Down  [  DOWN } 
Cursor  Right  (RIGHT) 


Cursor  Left  KEFT) 

insetiCli.)r.icler     (INST) 
DelflcCliiir.icter   (DEL) 
.l?cverse  Field  On  {  RVS) 
Reverse  Field  Off  [OFF) 


Apple  11  /  Apple  II  Plus 

All  programs  are  in  Applesoft  BASIC,  unless  otherwise 
stated.  Control  characters  are  printed  as  the  "normal"  char- 
actor  enclosed  in  braces,  such  as  i  D  i  for  CTRL-D.  Flold 
down  CTRL  while  pressing  the  control  key.  You  will  not  see 
the  special  character  on  Ihe  screen. 

Texas  Instruments  99/4 

The  only  special  characters  used  are  in  PRINT  statements  to 
indicate  where  two  or  more  spaces  should  be  left  between 
words.  For  example,  ENERGY  ( 10  SPACES)  MANAGE- 
MENT means  that  ten  spaces  should  be  left  between  the 
words  ENERGY  and  MANAGEMENT.  Do  not  type  in  the 
braces  or  the  words  10  SPACES-  Enter  all  programs  with  the 
ALPHA  LOCK  on  (in  the  down  position).  Release  the  ALPHA 
LOCK  to  enter  lowercase  text. 


CAPUTE! 

Modifications  Or  Corrections  To  Previous  Articles 


Atari  Snertle 

Program  3  (p.  94)  of  this  math  tutorial  from  the 
May  issue  has  a  bug  in  its  subtraction  routine.  In 
those  cases  when  the  answer  to  the  displayed 
problem  should  be  zero,  a  zero  will  not  be  ac- 
cepted as  the  correct  result.  Donald  Carlson 
points  out  that  line  362  should  read  as  follows: 

362    IF   Q-2    AND    K<=L    THEN   M=L-K 

64  Hi-Res  Graphics  Editor 

The  notes  to  this  program  (May  issue,  p.  82) 
failed  to  state  the  required  starting  and  ending 
addresses  to  use  when  typing  the  MLX  portion  of 
the  editor  (Program  2).  The  values  are  49152  for 
the  start  and  51553  for  the  end.  Also,  the  series 


of  steps  required  to  set  up  the  program  may 
seem  cumbersome.  Andy  Van  Duyne  has  pro- 
vided this  short  program,  which  will  perform  all 
the  steps  for  you: 

10  IF  FL=0  THEN  FL=1 sLOAD"HIRES/ML" ,8,1 
20  PRINT"{CLR}{2  down} POKE642, 128 JPOKB44, 

128iPOKE32768,0!NEW" 
30  PRINT" {3  D0WN}L0AD"CHR$(34)"HIRES/BAS" 

CHR$(34)",8" 
40  PRINT" {home}"; 
50  POKE  198, 6  J POKE  631, 13: POKE  632,13tPOK 

E  633,13 
60  POKE  634,82:POKE  635,213:POKE  636,13 

The  program  assumes  you  have  used  the 
filenames  HIRES/ML  for  the  machine  language 
portion  (typed  in  with  MLX)  and  HIRES/BAS  for 
the  BASIC  portion  (Program  3).  Change  these 
names  in  lines  10  and  30  to  match  the  names 
you  used.  To  use  the  program  with  tape,  change 
the  8  to  a  1  in  lines  10  and  30.  You  must  have 
the  BASIC  portion  saved  on  the  tape  immedi- 
ately following  the  machine  language  portion. 

The  screen  dump  feature  of  the  editor  wdll  not 
work  with  the  new  Commodore  1526  printer,  since 
this  model  does  not  have  the  dot-addressable 
graphics  feature  of  the  Commodore  1525  printer. 


\ 


YOU  CANT  TELL 

A  DISK  DRIVE 

BY  ITS  COVER!! 


WITH  A  HAPPY  ENHANCEMENT  INSTALLED  THESE  ARE 
THE  MOST  POWERFUL  DISK  DRIVES  FOR  YOUR  ATARI  COMPUTER 

WARP  SPEED  SOFTWARE  DISK  READING  AND  WRITING  500%  FASTER 

HAPPY  BACKUP  —  Easy  to  use  backup  of  even  the  most  heavily  protected  disks 

HAPPY  COMPACTOR  -  Combines  8  disks  into  1  disk  with  a  menu 

WARP  SPEED  DOS  -  Improved  Atari  DOS  2. OS  with  WARP  SPEED  reading  &  writing 

SECTOR  COPIER  —  Whole  disk  read,  write  and  verify  in  105  seconds 

1050  ENHANCEMENT  -  Supports  single,  1050  double,  and  true  double  density 

810  ENHANCEMENT  -  Supports  single  density 

SPECIAL  SUGGESTED  RETAIL  PRICE:  Get  the  HAPPY  ENHANCEMENT  810  or  1050  version  with  the  HAPPY  BACKUP  PROGRAM 
plus  the  muiti  drive  HAPPY  BACKUP  PROGRAM,  plus  the  HAPPY  COMPACTOR  PROGRAM,  plys  the  HAPPY  DRIVE  DOS  plus  the 
HAPPY  SECTOR  COPY,  all  with  WARP  DRIVE  SPEED,  including  our  diagnostic,  a  $350.00  value  for  only  $249.95,  for  a  [imited  time  only! 
Price  includes  shipping  by  air  mail  to  U.S.A.  and  Canada.  Foreign  orders  add  $10.00  and  send  an  international  money  order  payable  through  a 
U.S.A.  bank.  California  orders  add  $16.25  state  sales  tax.  Cashiers  check  or  money  order  for  immediate  shipment  from  stock.  Personal  checks  require 
2-3  weeks  to  clear.  Cash  COD  available  by  phone  order  and  charges  will  be  added.  No  credit  card  orders  accepted.  ENHANCEMENTS  for  other 
ATARI  compatible  drives  coming  soon,  call  for  infonmation.  Spec*/  1050  or  810  ENHANCEMENT,  all  1050s  use  the  same  ENHANCEMENT 
Please  specify  -H  model  for  all  810  disk  drives  purchased  new  after  Febnjary  1982,  call  for  help  in  810  ENHANCEMENT  model  selection  Dealers 
nowf  throughout  the  worU,  call  for  the  number  of  the  dealer  closes!  to  you.  atari  b  a  regisaH)  uadrniak  of  Atari  Compute.  Inc. 

HAPPY  COMPUTERS,  INC.     •     P.O.  Box  1268     •     Morgan  Hill,  California  95037     •     (408)779-3830 
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Oi 


COMPUTER 


A 

ATARI 


HOME  COMPUTERS 


1010  Fleeorder '74.00 

1020  Gofer  Pnnter "249.00 

1025  Dot  MBtnx  FVinter '349.00 

1027  Letter  Duality  Pnnter.  .  '309.00 
1030  DiTECt  Connea.  Modem. .'119,00 

1Q5D  Disk  Onve ■393,00 

C3<3Q  Paddle '12.00 

CX40  Joystick each.-.'e.OO 

CX77  Touch  TaWet "64.00 

CXBO  Irak  Bell '^IB-OO 

CXH5  Keypad '105.00 

4BB  Communicator  II '329.00 

4003  Assembter  Erfitor '47.00 

4011  Star  Raiders '33.00 

4012  MisBile  Commaid '29.00 

4013  Astercuda "2900 

5049  VisiCalc '159.00 

7079  Logo '79.00 


BOOXL... .■189 

800XL... '299 

12DaXL CALL 

1400XL CALL 


7101  Entertainer "69.00 

7102  Arcade  Champ '75.00 

S09S  Dig  Dug '33.00 

8030  E.T.  Phone  Home "33.00 

8031  Onnkey  Kmg '39,00 

8033  Robotron '35.00 

8034  Role  Position 'SBOO 

8036  Atari  Wnter '79,00 

8040  Donkey  Kong,  Jr '39,00 

8043  Ms,  Pacman '39,00 

8044  Joust '39.00 


AXIOM 

AT-100  Aton  IncerfflCB  Pnrtar '239  00 

GP-lOO  f^rafiei  Jfterfaie '199  00 

AT-B46  irtBTface  fer  fiC£h *B9  DO 

BMC 

dai  iatUT  Ouodty "SeSCD 

BX-go  Dot  WariK '26900 

CENTRONICS 

122  Pnrilol 'Sga.DO 

?39-l  Bamlld , "189  00 

739-3  Send "Sug.OQ 

C.ITOH 

GonllB  Bansrw .,..,., *2D9  0a 

Prownter  B51DP -•379,00 

Prixvntar  1550P "59900 

A1C  |18  opsl ■S69.CXI 

8600  P •98900 


"999.00 
1349  00 


•19900 


ALIEN  VOICE  BOX 


Atan '119.00        Aopte.. 


-,'149.00 


FiD-4a 

Fio-as 

COMREX 

ComWhter  I  Uaar  QljBlity 

DIABLO 

B20  LetMr  Quetty '9^9.00 

630  tEtier  OjeJiCy '1749  00 

DAISYWRfTER 

2000 .- -BAg.OS 

Trdcuif  Food "109.00 

EPSON 

HK-BO,  RX-BOn.  FK-100.,, CAU 

FXaO.  FX-100 CALL 

LO  1500   CAU. 

lOS 

Pnsm  BO   ftr  Cor*girBbar CAU 

Fhsin  33   Fa-  CanfjgLration CALL 

JUKI 
6100  'dsg-Da 


PRINTERS 

MANNESMAN  TALLY 

1B0L '569  00 

1B0L "799  00 

Spnt  80 - "309  00 

NEC 

B023  Da  Mot™. "37900 

B025  Oa  ^tenx "669  00 

2010/15/30 '74800 

3510/15/30  '1369  00 

7710/15/30  '179900 

OKIDATA 

92,  63.  34.  as.  93.  2350,  2410  CALL 

OLYMPIA 

Cmpm  2 -. -'47900 

Compact  FO - '509  00 

ESW3000 •uaaoo 

SMITH  CORONA 

TP-1000 '399  00 

liwtor  Fooa -, "11900 

SILVER  REED 

500  isnzer  QuHlitY „..,^449  00 

550  Lotwr  Ouaiti •569,00 

770  Litter  QLaitry , "899  00 

STAR 

GffTurt  lOX - "599  00 

Oemn  ISX- ,.•39900 

Ddta  10 •449.00 

Sena  Boerd "7500 

B«ta  ID  -..,,,„ "599.00 

Raix  15 "63900 

TOSHIBA 

1340 - •869,00 

1351     -,.•169900 

TRANSTAR 

120P - "49900 

laOP - "68900 

315  Color "499.00 


Axlon  33K '59.00 

Axlon  4BK , '99.00 

Axlon  lEBK '299.00 


MEMORY  BOARDS 


Intec  3SK '59.00 

Intec  48K '85.00 

Intec  64K '99.00 

Intec  Real  Time  Ckjck '29,00 


DISK  DRIVES  FOR  ATARI 

PERCOM  INDUS 

AT  ae-Sl "369.00         ET   Dnve -- ."37500 

/sr  88-A1 •259.00  RANA 

ATBB-siPO "449.00  1QQQ                                   -aaaoo 

nFD40-Sl "36900  TBMv' 

RfO  40-Sa „ "69900  .                          IHAR                 ,,„„„ 

PFO  44-S1 „..,„, ."53300  "'""^ 3B9D0 


MODEMS 

ANCHOR 

«*Biiodom 'SD-OO 

Ma^i  IL , '79.00 

Mark  VII  (Auttj  Ana/Autn  Did] '11900 

Mirt  XJI  pmo  Baufl '299,00 

TRS-SO  Cao-  Cunputer '99.00 

9  *lt  Power  Stopty "9  00 

HAYES 

SnonmoOeni  300 '209  00 

Smartmodem  1200 "499  00 

armrttivodtm   12000 •449,00 

MiownodHnlte •26900 

Micrcmodem  100 ^299  00 

Sniirt  Own  II 'B9-Q0 

ChrwToeraph ^199  00 


NOVATION 

J-CbI "99,99 

Cat "139.00 

Smort  C«t  103 "179.00 

Smart  Dx  103/212 "399.00 

AuEoCot "219,00 

21?  AuojCoe "549,00 

Appfe  Cat  II "249  DC 

212  iffle  Cat "449.00 

Awte  Cat  212  Upgrade "269.00 


ZENITH 

ZT-1 •339.00 

ZT-1D •308B0 

ZT11 •368.00 


DISKETTES 


MAXELL 

5'/.-  MD-1 '24.99 

5H"  MD-3 "34.99 

B"  FD-l  JSSfOO] , •39.00 

B"  FU-2  |DatX>] -.."49-00 

VERBATIM 

SVi"  SS/OO "26.99 

5H--  aS/DO  "36-99 

BIB 

5'/."  DsH  Hoad  Cteaner "14.99 


ELEPHANT 

5'/."   SS/SD •16.99 

5V."  SS/DD "21.99 

BW  HMB *ae.99 

DISK  HOLDERS 
INNOVATIVE  CONCEPTS 

Hip-n-FJe  ID "3.99 

H(Mi-file  50 - "17.99 

ft[H>File  (400*00  FOMt  HoMor ..■izgg 


CONTROLLERS  &  JOYSTICKS 


WICO 

Jc^mck "21.99 

3-v.ay  Joystick ,"22  99 

Poura-  Gnp "21,99 

BOSS  Jc?^tiai "17.39 

ATAHMC  Tr*  Bd -  -"34.99 

ApfJeTro*  Boll "54.99 

Apple  A™Ic« "37.99 

AMIGA 

3100  Sn^e "IS-Sg 

3101  F*r -   "19  99 

"37  99 


KRAFT 

Jatsuck '41-99 

Aum  Sntfo  Hn: "1299 

Aton  S«ldi  Hittsr...N '15.99 

Apple  Rk»so - '34-99 

IBM  PBdtlffii - "34.99 

IBM  Ju(SDi* '48  99 

KOALA  PAE» 

Atan  [ROM] '79.00 

0-64  (ROM) '79.00 

IBM •99-00 

Apiie'FfarWin "95  00 


AMDEK 

3D0  Groan "149.00 

300  Amber '159.00 

310  Ambef  '189,00 

Coicr  1 •279.00 

Cacr  1  PkB •299.00 

Color  2  HiB '419  00 

COOT  3 "S^goo 

CoKr  4. '749.00 

BMC 
12"  Grsan "Ba-gg 

12-  Green  Hflos '119.99 

9191-13"  Color.- '249.00 

GORILLA 

12"  Groen "88.99 

12"  AmbB- ■95.99 

NEC 

J8  1260  Groan -..- --'109  00 

JS  1201  &een '149.99 

JB  12D5  Amber. '159.99 

JB  1215  Color •259.00 

JC  1216  RGB '429.00 

X  1460  OoKr •359  00 


MONrTORS 

PRINCETON  GRAPHICS 

HX-12  HGB •529.00 

SAKATA 

100 •SBSKI 

TAXAN 

210  Oder  RGB •259-00 

400  Mod-Ftes  RGB '319.00 

415  H,-nes  HGB "439.00 

420  Hifles  HG6  [HM] "469,00 

100  12"  Green.. "125.00 

105  12"  Amber "135.00 

USI 

Pi  1,  9"  Green.- •gs.m 

R  2.  12"  Green '119.99 

Pi  3.  12"  Amber •149.99 

B  4.  9"  Amber "139.99 

1400  Cd or "269.99 

OUADRAM 

QtBdcMmB  B400  Color "529-00 

ZENITH 

ZVM  122  Amber "109.00 

ZVM  123  Owr--    "B9,99 

ZVM  135  CoiorfRGB "469  99 


east 
800-233-8950 


Canada 


west 
800-648-3311 


800-233-8950  aoolea  3974         800-648-331 1 

°"""4^'"Sb°^       S29:f^M?Jst^^     '"o"Jer^r,^j5r.^f^KsT 

Ordop  Statu*  Numbar:  327-957E  ,„  T„rDneo  eill  (416]B28'0BBB,D«pc   105  p  q  Hq-  gggg 

Cuatomar  Serwico  Numbar:  327-1450  Order  Statui  Numbar:  82B-0BB6  «if=».iin.    Kiu  attaao 

477  E.  3rd  St..  WiHrBmsport,  PA  17701  2505  Dunwin  Orin,  Unit  3B  atBteiine,  rav  ttm^a 

MississaugB,  Ontario,  Canaila  L5L1T1 
No  risk,  no  depBlit  On  C.O.D.  orders  and  no  waiting  period  for  eertifiad  checks  or  monav  orders.  Add  3%  [minimum  'S)  shipping  and  handling  on  all  orders.  Larger 
shipment*  may  require  additional  charges.  NV  and  PA  residents  add  sales  tsx.  All  items  subject  to  availability  and  price  change.  Call  today  for  our  catalos- 
CANADIAN  ORDERS:  All  prices  are  subject  to  shipping,  tax  and  currency  fluctuetions.  Cell  for  exact  pricing  in  Canada. 


In  NV  call  (702]5S8-S654,Dapt.105 

Ordor  Status  Number:  588-5654 

P.O.Bax  66S9 

Stateline,  NV  8944S 


COMPUTER  MAILORD 


APPLE/FRANKLIN 
DISK  DRIVES 

MICRO-SCI 


•S19  0Q 

luia 

•E99Q0 

•ai3  00 

C2  CortraJer 
C47  CqnWjUa- 

RANA 

■79  00 
'89  00 

•279  00 

■38900 

BneS 

'569  00 

APPLE  lie  STARTER  PACK 

B4K  Apple  lie.  Disk  Dnve  &  Cmtrotler. 
SO  Colunn  Card.  Monitor  II  &  DOS  3.3 
COMPLETE CALL 


MBC  550. 
MBC  555. 


CALL 

CALL 


ACE  lODO  Colo.-  Computer CALL 

ACE  Family  Pack  System CALL 

ACE  PRO  PLUS  System CALL 

ACE  1S00  Office  Mgmt  System  CALL 
"NOT  lie  EKPENSIVE" 

^ SANYO 


MBC  1100  '1499  00 

FDD  3a00-3MK  Dnve '339  00 

Mac  1130   •189900 

MBC  1200     'iBagoo 

FDD  6ilOa640K  Onre *4B9  00 

MBC  1250  ^2099  00 

pq  5500  PnnMT  '599  DO 


SEC 

PC-8201 
«489 


'wKW^fe 


NEC 

PC-aS21A  Thermal  Pnnt£r "149.99 

PC-e281A  Data  Recorder '99.00 

PC-B2ai-0B  BK  RAM  Chips. ..'105.00 
PC-B20EA  32K  RAM  Cartnd9e'329.00 


SHARP 

PC-1500A MBS" 

PC-ia50A ..■■■*8a" 

HP  IOC  ■51.99 

HP  lie  •69,99 

HP  J2C •88.99 

HP  15C - _... '88.99 

HP  1BC "Sa.99 

HP  75C         .."749.39 

HPIL  Mcilie "9899 

HPIL  Cassette  or  P^viir ■359  39 

Cart  FcaOcr  ■143  99 

ErterxKd  Functjcr  MoAifi ■63  99 

Tma  MdcUb  '63  93 


CE-135  Pnnter/Cassette '128.99 

CE-150  Cola-  Pnnter/Cas5etl£.'171.99 

CE-155  SK  RAM '93.99 

CE-1S1  16K  RAM "134.99 

CE-500  ROM  Litirarv.,......^.... '59.99 

WAnt   HEWLETT 

IXJ   PACKARD 


Qz.  commodore 

CBM  ao9B ■flsaoo 

i&A  9000 ■ssaoo 

B128-B0 '789.00 

BOSa  a  BOOO  Utjgrsle •269.00 

2031  LP  Disk  Qri« •299.00 

B05D  Disk  Onwe ■949  00 

8350  D*  Draa •119900 

40B3  Punter -379  00 

6023  Pnrar ■569.00 

B4D0  PnntfiT -lagaoo 

Z-FIAM  "499.00 

aiicn  Otfico   "699.00 

The  Manager ■199  00 

BoftFOM ■125.00 

WsCeIc '159.00 

PROFESSIONAL  SOFTWARE 

Wool  Pro  a  Plus      '15900 

Won)  F*Ti  3  Hub "IBgnO 

Word  Pro  4  Biis/5  Rus... eoch,..'a79.00 

infoPro 'IVaOO 

Amnrtstrocor "399.00 

?%»«•  '79.00 

M8D 

SOI   Disk  Dnve ■349.00 

SOS  Dsk  Onve '59900 


HP  71B  •449" 

41CV "208" 

41CX '249" 

SX-64 

Portable               *839 
CBM  aosa ■SS9 

CBM  B4 '199 

C1541  Disk  Dnve •249.00 

C1530  Datosette ^69. 00 

C1520  Cola-  PnnteiVFImajr '129.00 

M.801   Dot  Mntnj  Riner '219.00 

C1526  Da.  Matn«Send •299,00 

C1702  COOT  MomSDT •249.00 

C1311   JnyaDdt '4.99 

C131gft«iaies....- - -,..•11.99 

C1BO0  VIC  Moton "59.00 

C1550  Auto  Mdoeni •89.00 

Logo  64 "49.00 

PikX&A "ai.OO 

Wort  Pin  B4  Plus "59.00 

Parallci  Pnrtar  rtartaee "49.00 

Cac  FtesJt  64 ^65.00 

Calc  ResJt  fesy '39.00 

Codenntar  64 '75.00 

Quck  &Tiwn  Fox '49  00 

MCS  BD1  Ctto-Pnnter '499  00 

DPS  1101  DSEV  F^irxcr '459.00 

MB9C  Vijoe  Speech  MaHn "54.00 

Desk  Organiajr  Ujok '49.00 

Vjchfijc  TelecimmoncatJDns   *34.95 


IBM 


NEC  PRINTERS 

NEC  205Q  '099.00 

NEC  3550  '1639.00 

PERCOM/TANDON 
DISK  DRIVES 

5'/."  3E0K  Foppy   '229  DO 

5  Meg  Han  WCoixrolkT '104900 

10  Mag  Hart  vlConr^a- '1349.00 

15  Meg  HurB  wWCortroOer '159900 

20  Wag  Hard  wtfCwtraller '1899  00 

AMDEK 

310A  Amher  Mmtor '169.00 

Colo-  2 '41900 

a*r  4 "749.00 

AST  RESEARCH 

a*  F«t  Plus Irun,. 

Combo  F^UB  U from 

Mega  Rus from 

llG   RtB Irom 

QUADRAM 

Ouadtxiart   .  3sk>vas. 

Quad  5T2  Rus as  kwas. 

Ouedctftr as  low  as 

Chronograph 

F^r^lel  Irterface  Eijand    


'279  00 
'27900 
'3O90O 
•13900 


'47900 
'28900 
.'24900 
.'219  00 
'89  00 
,*B9  00 


64K  RAM  Chps  Kjt  '59  00 

CONTINENTAL  SOFTWARE 

Igt  CJats  Mal/Form  Lattar '79.00 

Home  ;trountanc  Rib '88  00 


MICROPRO 

WortSiar  ProteSionol  Poo "3B9.D0 

liyoStar "299.00 

SpdIStff- ...."159.00 

CtfcSlw — "99.00 

MICROSTUF 
Cmsstak ■105.00 

MICROSOFT 

MJtiRan '159.00 

ASHTON-TATE 

dB»S6  II •369.00 

F«10(l '185  00 

lUS 

&syWnffir  n '249  00 

EKySpeller ■11900 

fesyHltr •229.00 

LOTUS 

Syrftvx^  CALL 

12-3  ■323.00 

PROFESSIONAL  SOFTWARE 

PC  RuB/ThB  ass raagoo 

SYNAPSE 

.."89.00 


Qectronic  Arts 

Ajds  Assassin 

M.U.LE- 

Rnball  Construction 

Cut  a.  Paste 

Hard  Hat  Mack 
tnfbCom 

Witness 

Infide! 

Starcross 

Ranetfall 

Enchanter 

Zorii 
Atari  Soft 

Dig  Dug 

Defender 

Robotron  2084 

PacMan 

Donkey  Kong 
Spinnaker 

Stofv  Machine 

Cosmic  Life 

Up  for  Grabs 

Kindeftaxnp 

Snooper  Troops 

DeltB  EDrawing 

Kids  on  Keys 

Hey  DkUle  Diddle 

Fscemaker 

Rhymes  &  Riddles 
Dynatech 

Coda  Writer 

VIsiCorp 

ViaCalc 

\/isiCalc  Advanced 

Visitrend/Piot 

VisiFle 

VisjScheriule 

Desktop  Plen 

Business  Forecast  Model 

StretchCalc 

VisiTutor  Calc 

VistTutor  Advanced 

VisiTutoi-  WtoTl 
pfs: 

Write 

Graph 

Report 

RiB 

Solutions:*  as  kM/  as 
"Call  on  Titles 


fAR 

C-64 

E 

Atan 

IBM 

Apple 

•17" 

•17" 

N'A 

'17» 

•29" 

•9  9" 

N,'A 

N/A 

■29" 

■29" 

N/A 

■29" 

'39" 

•39- 

N/A 

■39- 

•gga. 

•29I" 

N» 

•39" 

•32" 

•32" 

N/A 

•32" 

'SE- 

"3S» 

■32- 

■32- 

N/A 

•29" 

■29" 

■29" 

'32» 

■32" 

•32- 

■32- 

•3S" 

'32- 

•32" 

•32" 

N/A 

■ag- 

■29" 

■29" 

■37- 

N/A 

•29" 

•29" 

•37- 

N/A 

■29- 

•29" 

•29" 

N/A 

"29" 

■29- 

■37- 

N/A 

'29"' 

•29" 

•37- 

N/A 

"29- 

•29- 

•34" 

•24" 

•29" 

•29" 

■24" 

•24" 

N/A 

N/A 

•29" 

•39" 

N/A 

N/A 

'21" 

'21" 

■24" 

•21" 

■29" 

■29" 

N/A 

•29" 

•29" 

•29=" 

•39" 

•39" 

•29" 

■29" 

N/A 

N/A 

•21" 

■21" 

•21" 

•21" 

.24» 

•24" 

■24" 

•24" 

N/A 

•21" 

■24" 

■24" 

'79" 

■79" 

•175'° 

•155" 

•isg" 

•159* 

■159" 

■159" 

WA 

N/A 

a'A 

•269" 

M/A 

N/A 

•199°° 

■199" 

N/A 

N/A 

■199" 

■169" 

N/A 

N/A 

•199" 

•199" 

N/A 

N/A 

•199°> 

•169" 

N/A 

N/A 

■75" 

■75" 

N/A 

N/A 

■75" 

■75" 

N/A 

N/A 

'59" 

•59" 

N/A 

N/A 

•75'= 

■75" 

N/A 

N/A 

■59" 

■59" 

N/A 

N/A 

•89" 

•79" 

N/A 

N/A 

•89" 

■79" 

WA 

N/A 

■79" 

■79" 

N/A 

N/A 

■89" 

■79" 

N/A 

N/A 

■16" 

"16" 

C3St« 

800-233-8950 

In  PA  call  (717}3S7-g575,Dept.105 

Order  Status  Numbar:  327-9576 

CuBtomar  Saruice  Numfaar:  327-1450 

477  E.  3rd  St.,  Wiliiamspart,  PA  17701 


Canada 

Ontario/Quebec 

800-268-3974 

Othar  PravJnceBB00-26B-4559 

In  TarontQ  cell  [416l838-0eeB,Dapt.  105 

Ordar  Status  Numbsr:  BaB-OBSB 

2S05  Dunwin  Driva,  Unit  3B 

Misaissauga,  Ontario,  Canada  L5L1T1 


west 
800-648-3311 

in  NV  call  C702]58B-5654,DDpt.  105 

Order  Status  Number:  588-5654 

P.O.Box  6689 

Stataline.  NV  89449 


INTERNATIONAL  ORDERS:  All  Bhlpmancs  outside  the  Continental  United  States  must  be  pra-peid  by  certified  eheck  only,  include  3%  (minimum  "5]  sliipping  and,  -  ^ 

hendling. 

EDUCATIONAL  DISCOUNTS:  Additional  diacounts  are  available  to  quahlied  Educational  Instituliona.  WkJ 

APO  fi  FPO:  Add  3%  (minimum  "S]  shipping  and  handling. 


WSI' 


Lyco  Computer  Marketing  &  Consultants 

TOLL  FREE  800-233-8760 


TO  ORDER 

CALL  us 


In  PA  1-71  7-327-1824 


DISK  RANA 

DRIVES    '°^  *"^^ 

PERCOM 

ATARI  ATSa-PD  $329.00 

AT-Ba  DOUBLEH  ....     $129.00 
ADD-ON  DRIVES S  CALL 

HARD  FOR  5  MEG 

DISK  APPLE  10  MEG 

DRIVES  IBM-PC  15  MEG 

AVAILABLE 20  MEG 

\Qz  commodore 

VIC  64 s  CALL 

VIC1541   S239.00 

SSI 
KNIGHTS  OF  DESERT  ...S26.75 

EAGLES S26.75       ' 

TIGERS  IN  SHOW 126  75 

COMBAT  LEADER S26.7S 

BATTLE  FOR  N   S26.7S 

EPYX  64 

JUMPMAN  C/D S27,7S 

JUMPMAN  JR  R SS7.75 

PITSTOPR S27.75 

TEMPLE  ASPHAI S27.75 

GATETASPHAI  .S27.75 

CRUSH.  CSC  C/D S21.75 

INF0C0Me4 

ENCHANTER S34.75 

PLA  N  ETFALI S34. 75 


TRAK  DISK  DRIVES 

AT-D1 S379.00 

AT-02 J3B9.00 

AT-D2  TURBO  PAK  ....,   .S22.9S 
PRINTER  CABLE S22.95 

CONCORD 
DISK  DRIVES 

APPLE  163K  DRIVE St99.00 

APPLE  326K  DRIVE S229.0O 

APPLE  CONTROLLER 
CARD S69.00 

COMMODORE  VIC  17ilK...S289.00 
COMMODORE  VIC  34eK . . .  S359.00 

ATARI  176K  MASTER  ..  .5289.00 
ATARI  34SK  MASTER  . . .  S369.0O 
ATARI  ADD-ON  DRIVES. .  .SCALL 


DATASOFT 

POOYAN  C/D S21.7S 

O'fllLEYS  MINE S21.75 

PARKER  20 
FROOGER  S33.75 

PROFESSIONAL  SOFTWARE 

WORD  PROS- SS9-75 

SPELL  RIGHT-   S39.75 

BOTH  TOGETHER,. S79.75 

EASTERN  HOUSE 

RABBIT  20  ROM ...534.75 

RABBIT  64  ROM --834,75 


dppkz 


8R0DERBUND 

BANK  STBEETD  S44.75 

CHOPLIFTER  D S24.9S 

DAVID'D  MAGIC $24.95 

DROLD  S24.95 

LODE  RUN  D S24.95 

SEAFOX  D  $22.95 

SPARE  CHANGE  D $24.95 

AE  D S24.75 

PEACHTREE 
SOFTWARE 

LIST  MANAGER $1 99.00 

BUSINESS  GRAPHICS       $225.00 

GRAPHICS  LANGUAGE.  ..$299.00 

REQUIRES  COBAL  RUNTIME 

ACCTS  PAYABLE  I $495.00 

ACCTS  PAYABLE  II ..  ..$1  895.00 

PAYROLL  I S495.0O 

PAYROLL  II  $1695,00 

CENEFIAL  LEDGER  I $495.00 

GENERAL  LEDGER  II  ..  .$1695.00 


KOALA 

KOALA  TABLET $84,75 

PROGRAMMERS  GUIDE      SI  2. 75 
GEOMETRIC  DESIGNS. -S22. 75 

LOGO  DESIGN $27,75 

ILLUSTRATOR $99.75 

SONGWRITER  D $27.75 

MASTER  TYPE $27,75 

CONTINENTAL 

HOMEACCOUNTO  $44.75 

TAX  ADVANTAGE $35.75 

BOOK  OF  APPLE 

SOFTWARE SI  6.95 

GENERAL  LEDGER S179.95 

ACCOUNTS  PAY S179.95 

ACCOUNTS  fieC $179.95 

PAYROLL $179.95 

PROPERTY  MGMT $329.95 


CP/M  VERSION 

PEACHPACK4 $295.00 

ACCTS  PAYABLE  III $549.00 

ACCTS  PAYABLE  IV $899.00 

ACCTS  REC  III $549.00 

ACCTS  REC  IV $899.00 

GENERAL  LEDGER  III . .  $549.00 
GENERAL  LEDGER  IV . .  $899.00 
INVENTORY  MGMT  I. ..  .$549.00 
INVENTORY  MGMT  II. .  .$899.00 

PAYROLL  III $549.00 

PAYROLL  IV $899.00 

SALES  INVOICING  I  ....$549.00 
SALES  INVOICING $899.00 


TO  ORDER 


CALL  TOLL  FREE 


or  send  order  to 
Lyco  Computer 


800-233-8760  po  boxsoss 

in  PA  1    717-327-1824     Jersey  Shore.  PA  1  774C 


DISKETTES 

ELEPHANT 

SINGLE  SIDE  SD  (101  ....$17.75 
SD(IOO) $16.75/10 

SINGLE  SIDE  D0(10|  ..,.$2), 75 
DD(IOO) $20,75/10 

DOUBLE  SIDE  DD(10)  ...$26.75 
OD(IOO) $24.75/10 

MAXELL 

MD1  |10| $27.75 

MD2(10| $37.75 

CERTRON 
CASSETTES 

CC-10(12) SIS.Sa 

CC-20112) $17.99 

INNOVATrVE 
CONCEPTS 

DISK  STORAGE  (10| $4.95 

DISK  STORAGE  (15) $9.95 

DISK  STORAGE  (25) $19.95 

DISK  STORAGE  (50) $26.75 

ROM  STORAGE  (10) $24.75 

MODEMS 

ANCHOR  MARK  1 $45.75 

ANCHOR  MARK  l( $79.75 

HAYES  SMART $239.00 

HAYES  MICRO  II S309.00 

MICROBtTlOOOC $129.00 

CAT $144.00 

D-CAT $155.00 

J-CAT $115.00 

APPLE  CAT  l[ $279.00 

21 2  APPLE  CAT $589  00 

INFOCOM 

DEADLIN  E S34.7S 

20RK  1,2.  or3  $34.75 

ENCHANTER $34.75 

PLANETFALL $34,75 

SPINNAKER 

KINDEflCOMPD $21.75 

STORY  MApH  D $23.75 

FACE  MAKER  D  $23.75 

SNOOPER  TR  D $29.75 

SNOOPER  T2  D $29.75 

DELTA  DRAWD $32.75 

FRACTION  F  D $23.75 

ALPHABET  ZOO  D $21  .75 

MOST  AMAZING  D $26.75 

RHYMES  »  RID  D $21.75 

APPLE  DUMPLING  GX....  $99. 75 
APPLE  DUMPLING 

16K  BUFFER $179.75 

TEXT  PRINTER 

INTERFACE  $79.75 


COMPUTER 
CARE 

BIB 

DISK  DRIVE  CLEANER...  $12.75 

COMPUTER  CARE  KIT  .    .$19,75 

NORTRONICS 

DISK  DRIVE  CLEANER 

WITH  SOFTWARE  FOR 

IBM-PC.  ATARI.  VIC. 

APPLE. iTI $29.75 

OISKCLEANER  REFILLS., .$14. 75 
CASS  DRIVE  CLEANER...  $9.95 
MEDIA  BULK  ERASER  ...S46.75 


MONITORS 

SAKATA  COLOR $249. OO 

TAXAN  GREEN $119.00 

TAXAN  AMBER $129.00 

TAXAN  RGB 

COMPOSITE $289.00 

ZENITH  AMBER $105-00 

ZENITH  GREEN $95. OO 

GORILLA  GREEN $BB.OO 

GORILLA  AMBER $95.00 

NEC  JB1260 $99.00 

NEC  JB1205 $145.O0 

NEC  JB1  215  COLOR  ,..$269,00 

AMDEK  GREEN  - S145,C!0 

AMDEK  AMBER $149-(Xi 

AMDEKC0LQR1- $269.00 


SSI 

KNIGHTS  OF  DESERT  ...$25.75 

EAGLES $26.75 

TIGERS  IN  SNOW $26.75 

GERMANY  1985 $36,75 

BATTLE  FOR 

NORMANDY $26,75 

SHATTERED  ALLIANCE. . .  $39  75 

SIERRA  ON-LINE 

ULTIMAII $39,75 

DARK  CRYSTAL  $27, 75 


ATARISOFT 


PACHAN 

DONKEY  KONG 

DIG  DUG 

CENTIPEDE  

HOBOTBON ..,.,. 

PROGRAM  DESIGN 

ANALOGIES 

PREP  FOR  SArS 

PRESCHOOL  10 

BUILDER 

BEADING  COMP 

VOCABULARYBUILDER.. 


$25.75 

S25.75 
$25.75 
$25,75 
$25.75 

$18.50 
$79.75 

$18.75 
$18,75 
$18,75 


ATARI 

INFOCOM 

DEADLINE $34,75 

ZORK  1.2.  or  3 .,...$26.75 

ENCHANTER ...$34.75 

EDUFUN 

GULP  ARROW 

GRAPHICS $24.75 

FACE  FLASH $24.75 

CONTINENTAL 

HOME  ACCOUNTD $44.75 

TAX  ADVANTAGE   $35,75 

BOOK  OF  ATARI 
SOFTWARE $16,95 


SCARBOROUGH 

SONGWRITER  D $27.75 

MASTER  TYPE $27.75 

EASTERN  HOUSE 

MONKEY  WRENCH  II  ....$52.75 

DON'T  ASK  SOFTWARE 

SAM $39.75 

ABUSE $22.75 

WORD  RACE $24.75 

PROGRAM  DESIGN 

ANALOGIES $14.50 

PREPFOR  SArS $79.75 

PRESCHOOL  10 

BUILDER, $16.75 

READING  COMP $16,75 

VOCABULARY  BUILDER. . .  $1 6.75 
LET'S  SPELL $14.75 


L\;co  Computer  Marketing  &  Consultants 

TOLL  FREE  800-233-8760 


TO  ORDER 

CALL  us 


In  PA  1   717-327-1824 


MANNESMANN 
TALLY 

SPIRIT  80 »2a9.00 

MTL-160U S559.00 

MTL-1B0U  ST75.00 

NEC 

N  ECe023 *369.00 

N  EC802S $699.00 

PRINTER 
INTERFACING 

AVAILABLE    FOR   COMMODORE 
VIC,  APPLE.  ATARI.  IBM-PC. 
TBS-80.  Tl.  AND  OTHERS 


STAR 


SAVE^^PRINTERS 


MICRONTICS 

GEMINI  1DX S2S9.00 

GEMINI  15X S379.00 

DELTA  10 $449.00 

DELTA  IS $525.00 

RADIXIO S575.0O 

RADIX  15 $675.00 

POWERTYPE $C  ALL 

SWEETP(MoaeltOOI  ...$549.00 
STXeO $149.00 


SMITH  CORONA  TP2  ...$449,00 


CITOH 

GORILLA  GX-1 00 $169.00 

GORILLASERIAL $199.00 

PROWRITER  B510 S335.00 

PROWfllTER  II  $575.00 

8600 $899.0O 

STARWRtTER $999.00 

PRINTMASTER  $1299.00 

SHEET  FEEDER $425.00 

620 $929,00 

630 *1 699.0O 

8510SP .$499.00 

B510SCP $559.00 

Al  0  LETTER  DUAL $499.00 


EPSON 

RXBO SCALi 

RX-BOrr SFOR 

FX-BO $CURRENT 

FX.1 00 $PRICES 

OKI  DATA 


80 $SAVE 

82* $0N  THESE 

83A $IN-  STOCK 

84 $PRINTERS 

92 $CALLA 

93 $SAVES 


PRINTING  PAPER 

3000  SHEETS 

FANFOLO $42.75 

JOOO  SHEETS 

FANFOLD $19.75 

10O0  SHEETS  LETTER... $21.95 

200  SHEETS  LETTER $8.99 

150  RAG  STATIONEBy...S10.99 
MAILING  LABELS  |1  in)  ,.S9.75 
14»11  1000  FANFOLD  .-   $24.75 


DUST  COVERS 


BOO 

...  $3.99 

400 

...  $3.99 

1200 

,  $3.99 

410 

...  $3.99 

810 

.      $3.99 

&00XL        .     . 

SS.99 

800XL  

...   $5.99 

1050 

...   $5.99 

1010 

....$5.99 

PROWRITER  .. 

....$5.99 

GEMINI  10X... 

.,,.$5.99 

PERCOM 

....$5.99 

EPSON 

....$5.99 

RANA 

....$5.99 

VIC  64/20  

....$5.99 

VIC  1541 

S5.99 

WICO 

COMMODORE  &  ATARI 

JOYSTICK  $16.75 

RED  BALL $18.75 

BOSSJOVSTICK $12.75 

TRACK  BALL $32.75 

12  FT  EXT  CORD $6.95 

Tl  ADAPTER $9.95 

APPLE  ANALOG $34.75 

IBM-PC  ANALOG  $34.75 


CONTINENTAL  64 

HOMEACCOUNTD    $44.75 

TAX  ADVANTAGE $35.75 

F.C.M $35.75 

64  USERS  OF  ENCYC.     $12.75 


^K  commodore 


,$12 
.$12 


TIMEWORKS 

INVENTORY 

ACCOUNTS  REC... 
ACCOUNTS  PAY... 
GENERAL  LEDGER 

PAYROLL  

INVENTORY  MAN  . 

CASH  FLOW 

SALES  ANALYSIS  . 
DATA  MANAGER  .. 
MONEY  MGRC/D.. 
CHECKBOOK  C/D. 
FORGETME-NOT  .. 

STAR  BATTLE 

ROBOT  REVOLT... 
SPELLBOUND  C/D  . 


$39.75 
$39.75 
$39.75 
$39.75 
$39,75 
$39.75 
$39.75 
$39.75 
$19.75 
$19.95 
S19  95 
$19.95 
$19.95 
$19.95 
$19.95 


BESTON  64 
IMINER  2049  ROM  ,  $29.75 


SCARBOROUGH  54 
SONG  WRITER  0  ...  $27. 75 
PHI  BETA  FILER.. .,$32.75 
MASTERTYPE $27,75 


HESe4 

TURTLE  TUTOR  .... 
TURTLE  TRAINER., 
TURTLE  GRAPHICS 

SOUNDBOX  

64  FORTH 

HESMON  

GHIDRUNNER 

ATTACK  OF  MC    ... 

HESWHITEfl 

OMNI  WRITER 

TYPE  N  WRITER... 

PAINTBRUSH 

BENJI 

HOME  MANAGER  .. 
TIME  MONEY  MGR. 

OMNI  CALC 

SWORD  POINT 

HES  MODEM  

M.  MULTIPLAN 


$22.75 

$22.75 
$37.75 
..i9,9S 
$39.95 
$22.75 
$19.75 
$22.75 
$28.75 
$45,75 
$24.75 
S22.75 
$25.75 
$28.75 
$44.75 
$33,75 
$19.95 
$49.95 
$65.75 


20  ENCYCLOPEDIA $12.75 

KOALA  64 

KOALA  TABLET S69.75 

PROGRAMMERSGUIDE. .  .$1  2.75 
GEOMETRIC  DESIGNS, . .  $22.75 

LOGO  DESIGN $27.75 

SPIDER  EATER $22.75 

SYNAPSE  64 

BLUE  MAX  C/D 524.75 

ZEPPELINC/0  $24,75 

PHAROAH'S  C/D $24.75 

SHAMUSC/D $24.75 

PARKER  64 

FROGGER  $32.75 

OSEHT $32,75 

TUTANKHAM $32.75 


CARDCO 


SPINNAKER  64 

KINDERCOMPD/R $21.75 

STORY  MACH  ROM $24.75 

FACE  MAKER  D/R S24.75 

SNOOPER  TR  D $26.75 

SNOOPER  T2  D $26.75 

DELTA  DRAW  ROM $26.75 

FRACTION  FROM S24.75 

KIDS  ON  KEYS  $24.75 

ALPHABET  ZOO S24.7S 

MOST  AMAZING  R $26.75 


G  PRINTER 

INTERFACE  $64.75 

B  PRINTER 

INTERFACE  $39.75 

KEY  PAD  64 $29.75 

LIGHT  PEN $29.75 

3  SLOT  EXPANSION $24.75 

5  SLOT  EXPANSION $54.75 

6  SLOT  EXPANSION $79.75 

PRINTER  UTILITY $19.75 

CASSETTE  INTERFACE...  $29.75 

WRITE  NOW  20 $29.75 

WRITE  NOW  64 $39.75 

MAIL  NOW $29.75 

DM-1  PRINTER $109.75 

LQ-1  PRINTER  $499.75 

BR00ERBUND64 

BANK  STREET  D  $44.75 

CHOPLIFTER  R $29.95 

DAVIDD  MAGIC $24.95 

OROL  D/R $24,95 

LODE  RUN  D/R $24.95 

SEAFOXR $29.95 

SPARE  CHANGE  0 $24.95 


I  ADVENTURE  INTERNATIONAL 

ADVENTURE  1-1  2  ea. $17.75 

SAGA $27.75 

PREPPIE $24.75 

OISKEY $34.75 

SEA  DRAGON $24. 75 

KOALA  TAB  LET $69.75 

PROGRAMMERSG    ..,$12.75 
GEOMETRIC  DESIGN.  $22. 75 

LOGO  DESIGN $27,75 

ILLUSTRATOR $99.75 

INKOME 
4O0  KEYBOARD.  SIN-STOCK 
BIT  3 
I  80  COLUMN  SCREEN 

BOARD $259.75 


PARKER  SPINNAKER 

FROGGER  - $32.75     KINOEHCOMP  0/R  ..$20.75 

QBERT 532  7.5     STORY  MACH  D/R...  $26.75 


PEFQOM 


IAT88S1  ..$249.00 
]rDF40SI  $269.00 


SSI 


KNIGHTS  OF  DESERT  $26.75 

EAGLES $26.75 

TIGERS  IN  SNOW $26.75 

COMBAT  LEADER $26.75 


DATASOFT 

SPELL  WiZZARO    .-.$34.75 

TEXT  WIZZARD $34  75 

WORDWIZZARO  ....  $46^75 
ZAXXON  C/0 $26'7S 


GEMINI  10  ■.... . .  $259.00 


BRODERBUND 
BANK  STREET  D  ...$44,75 

CHOPLIFTER  D $32.95 

DAVIDD  MAGIC  ....$24.95 

OROL  D $24.95 

LODE  RUN  0 $24.95 

SEAFOXD S22.9S 

SPARE  CHANGE  D  .524.95 
AE   D .$24.75 

EPYX 

JUMPMANC/D  ....  527.75 
JUMPMAN  JB  R  ,,..$27,75 

PITSTOPfl $27.75 

TEMPLE  ASPHAI  ...527.75 
GATETASPHAl  ....$27.75 
CRUSH.  CiC  C/0 ...  $21 .75 

UK 
LETTER  PERFECT. ,  $69.75 

DATA  PERFECT  $69.75 

SPELL  PERFECT  ...$69.75 


A 

ATARI 


S9        TO  ORDER 

CALL  TOLL  FREE  Of  Send  order  to 

800-233-8760        ^'i\TZT 

ustomer  Service  1-717-327-1825  Jersey  Shore    PA  1  7  74C 


PACMAN $29.75 

DONKEY  KONG  $29.76 

DIG  DUG (29  75 

CENTIPEDE  ...  529^75 
STAR  RAIDERS  $32  75 
ROBOTRON...  532^75  i 

PAINT $32.75 

JOUST, S35.75 

LOCO $69.75 

ATARI  WRITER    $79.75  ■ 

BOOK  KEEPER$io4.75  CompuKn  fofpeopk. 

VISICALC $159.75     O 

HOME  FILING  MGR $35,75 

PILOT  HOME S54  75 

■KEYPAD S95_75 

800XL $CALL| 

1 050  DISK  DRIVE  S  OiLL 
1050  RECORDER  S74.00 
1027  PRINTER      SCALL 


POLICY 

In. stock  Items  shipped  within  24  hours  or  order  Personal 
checks  require  (our  weeks  clearance  before  shipping  No 
deposit  one  0  0  orders  Free  shipping  on  prepaideashorders 
wiihin  the  continental  u  S  PA  residents  add  sales  tai  All 
products  subiect  to  avaiiabilrty  and  price  change  Advertised 
prices  show  4'»T.  discount  offered  tor  cash  add  4i-  lor  Pi/laster 
Card  or  Visa    DEALER  INQUIRIES  If^VITED 


$1 


SAVE  ON 


DISKETTES 


80 

Oty  20 


SSOD 


$935 


OSDD 


SU- S5DD-96TPJ       t3.4<  ei  5»- OSDD-96TP1  U.Hei 

BoxK)  h  10's  witti  Tyvoc  sieevss,  reinforced  hubs  and 
luwls 

ttSKETTCS  FOR  MAOMTOSH  i  HP-1S0 

AT  TERRIFIC  SAVINGS! 

3\^-PJWiorBt  t3.M«. 

Stf  ouf  biff  ■[]  In  Ihli  liiut  lor  allvat  pnal  viluail 
Shtpplnij:  5%'  w  3^.V  DISKETTES— Add  $3  00  pw  100  Of 
lewof  dulmttes  Paymant:  VISA  and  Magterca/d  aKflptod, 
COO  (xders  on^.  add  S3  00  handling  charge,  Tanaa:  IMoois 
resKlenis,  pJeasa  add  S%  snte^  tax 

WE  WILL  BUr  ANY  KATWKAILT  *DVEHTIS£D  PBICE 
ON  THE  SAME  PRODUCTS  AND  OUANTITIESI 

Nationwide:  1-800-621-6827 
Illinois:  1-312-944-2788 

Houra:  9AM  -  SPM  C«nnl  TIUM 

Minimum  Ordar  $3$.00 
DISK  WORLD!,  Inc. 

Sum  4806  •  30  East  Huron  SSrwl  •  Chicago.  IHnois  6061 1 


C-64"  and  ATARI  400^ 
OWNERS 


SOLVE  YOUR  TRIGONOMETRY  PROBLEMS 
THE  EASY  WAV  AND  SEE  RESULTS 


S10.00  (DISK  ONLYI 


Check,  Money  Orders, 
VISA  and  MASTERCARD  accepted. 
Please  specify  c-64'"  or  Atari-400'" 


Just  Fun  Software 

P.O.  BOX  25854 

Colorado  springs,  CO  80917 

(3031597-1965 


c-6d  Is  a  tradefnsrlt  of  commodofe  ElKtronics.  Ltd. 
Atari  is  a  trademark  of  Atari  Corporation. 


SHIPPING 

&  HANDLiNG 

ADD  S2,50 

Deaiftr  inquiries  welcome 

A  compact  and  inexpensive  Eprom  eraser  for  the 
haci<er,  it  erases  two  ctiips  per  exposure,  so  if  you 
are  one  of  tfiose  smart  people  wfio  only  mai<es  iittie 
mistaltes  and  only  needs  to  erase  two  Eproms  at 
a  time,  this  eraser  is  for  you. 

'Aimc  CO. 


7755  E.  Evans  ■  Suite  400  •  Scortsdale.  AZ  35260 

(602)  998-7550  Anona  re&Oenis  add  6»4  tax 


SAVE  MORE 

THAN  EVER  ON 

m/  3M Scotch® 

-■^         DISKETTES 


LIFETIME  WARRANTY! 


$185";r$235 


5  ;■<■  SSOD— 99TP1  (74«1 
5'-i'  DSOO— 96TPI 1747) 
e'  SSSO  (7401 
8- SSOD  (741) 
B-  OSDD  17431 


».»sa 

tS.IO  aa 

Shlpplno:  5  V  DISKETTES— Add  M.OO  par  100  «  Iraclion 
Ihenxjf  8'  DISKETTES— Add  $4  00  par  100  or  traction 
thoreol  OTHER  ITEMS  Shlppirrg  charges  as  shown  in 
addition  to  diskette  shipping  ctwges  Paymant:  VISA  or 
MasterCard.  COD  orders  orty,  odd  S3. 00.  TauM:  lllinas 
customers,  ptease  add  8^/^ 

Houra :  9  AM-5  PM  Cantral  Tima 

For  taal  aarvica  c#u 

Nationwide:  1-800-621-6827 

In  Illinois:  312-944-2788 

DISK  WORLD! 

Suile  4006  •  30  East  Huron  Street  -  Chcago.  Ittinas  50611 


Authorized  Distributor 
Information  Processing  Products 


Aspen  Ribbons'  brand 
replacements  for 

Tally®  MT80  "Spirit" 
Microprinter  Ribbons 


Buy  directly  from  a  manufacturer  and 
savel  These  ribbons  are  manufactured  by 
Aspen  Ri  boons.  Inc..  as  replacement 
ribbons  tor  use  on  prinlers  manufactured 
by  other  companies.'  Stendard  ink  color 
is  black  Red,  green,  blue,  brown,  and 
purple  colors  are  available  (or  $2.00  estfa 
per  ribbon. 

CALL  FOR  FREE  CATALOG. 
PRICES  (BLACK  NVLON) 


Tally*  ■■Spirit"        S4.25  to  $7.75  ea. 
Price  depends  on  quantity  ordered. 


"Aspen  Ribbons.  Inc..  is  not  afliliattKl  wilh  or 
licensed  by  any  other  company. 


Aspen  Rlbbona,  Inc.  •  1700  N.  55lh  St 

Boulder,  CO  80301 -^796  •  (303(444-4054 

Telex:  45-0055  •  End  User:  800-525-0646 

Wholesale:  800-525-9966 


Software  Unlimited 


KOALA 
SALE! 

Koala  Pads 

Alan.  C-64.  Vic-20 

w  Disk  Sollware    S65.00 

Aran.  C.64 

w'Catf'iJQe  Sottware    $?'JQ0 

Apple  II.  lie  II'  MB 00 

IBM  PC     fWS.OO 

Inslanl  Pfogtdmmers  Gw(S6 

All  Computers S12.QQ 

THE  Clone  Mschlne 

WJlh    Unguird'  C-64    J32.00 

SAM..A    C,  Dis*    J39-95 

C/iallerDee,«.  C.  Disk    i27.00 


SOFTWARE    UNLItAITEO.    27    LOOKOVER    LN 

YAflOLEY  PA  J906?   VISA  S  MCADDi%.  PLEASE 

400  5)  50P4H  PERSONAL  CHECKS  REQUIRE  } 

WEEKS  TO  CLEAR.  CALL  FOR  ACOMPLETE  LIST 

OF  OUR  SOFT  «  HARDWARE 

12151  493- VJT2 

OUT  OF  STATE  I-800-225-3656 


WHERE  DID  THAT 
)#%  VALUE  COME  FROM? 
Xref  HELPER" 

from 

(^iy-i44A^^" 


HELPS  YOU  FIND  OUT! 

From  your  Commodore  64  BASIC  pro- 
gram on  diskette.  Xref  HELPER  sorts  and 
lists  the  varjatjies,  constants,  GOTOs,  and 
GOSUBs  with  the  line  number  of  each  oc- 
currence. Fast,  Xref  HELPER  scans  most 
programs  In  one  to  five  minutes.  Printer 
required. 

^yS(     S25.00  plus  S1.25  shipping  ^^g^ 

K^I^HI     UN  residents  please  add  6*^*  sales  tan    ^^^^^ 
CanadLflh  residents  may  pay  COW  S32.40  plus  CON  SI  60  shipping 

(M)agreeable  software,  inc. 

5925  Magnolia  Lane  •  Plymouth,  MN  55442 
(612)559-1108 

HELPER  is  a  traiiemaJii  of  (Mjagreeable  Software,  inc 
Commodore  is  a  trademari*  of  Commodore  Eiectronics  Ltd 


mm 


TIES 


100% 

ertified 


GREAT  DISKETTES 

Super  low  prices 
SYNCOM 


uy  100  Diskettes 

GET  10  FREE 


DISKMINDER™ 

Capacity  75 

$17.95 


1-800-322-DATA 


TheiwoncaJ.hflh(K4inyctistenewithaLiFETiMtWAftRAfiTvpa:;^^aifi 
poMags  oT  10  wiiri  Tj\*t  tnvelopes.  libels  ana  t-n'.tj-c^i  J\ii>^ 
One  ol  ihe  b«i  buys  wevt  swr. 


$139 

I  QTY  2C 


«ea.5y4-SSDD 
5V4-  DSDO  ea. 


$-185 

*  I  QTV.2C 


OTHER  OREAT  *ALU»I 


DI&KETTETO— Holds  70  5^' diskettK  midustirM  iaftty  5m.S5  ea_  + 

SSOOShong 
DISK  CAOQ^— FliQ  uc  style  holds  10  Sv  dtsk^n      S1-05  U-  ■<■  .20 

^^  LlUvJ.'Jll ^™ 


Fpf  Itw  kBwst  pnced.  mheaa  quaWy  *she1tn,  storage  asts.  pnmef 
r^^bons  and  paw  waHucts.  s«id  lot  our  e;3UIe^  FREE  Mth  youf  order, 
SI  00  omefwise  BuJHUS^  Every  catalog  i«;kK)eiJ1S  00  *ofTh  or  bonus 

coupons 

Shippina:  5'j"  DISKETTES— AeJO  WOO  per  100  or  fraction  tlKreof. 
OTHER  ITEMS  Sriip(M>g charges  as  Ehovwunaddftwr  Id  fljalane  shipping 
charges,  Pijinmt:  ViSA  at  MC  COD  orders,  add  43.00  Tine  Illim5is 
customers,  please  add  B% 

Nationwide:  1-800-621-6827 

In  Illinois:  1-312-944-278e 

Mnm.r  C'dcr  13100 

WE  Wll  WAT  AHT  NATIONALLY  MVEfiTtSEO  PfliCB 

tM«KWOHJH 

Suite  4B06  '  30  East  Huron  StrHi  <  Chicaoo.  Illinois  60E<it 


SYNC©M 


^i^feoiEyml 


.ti»mt»P> 


BSD  Enterprises 

ALL  PRODUCTS  ARE  IN'  ALPHABETICAL  ORDER    WE  CARRY  A  FULL  LINEOF  LISTED  BRANDS. 
IF  YOU  DO  WOT  SEE   WHAT  YOU  WANT,  CALL  AND  ASK  FOR  IT. 


''^SffT!^'^^ 


WHOLESALERS,  DEALERS  AND  OTHER 

DISTRIBUTORS  INQUIRIES  INVITED... 

212-438-41116x1.  #18 


COMFUTBtS 


S96-K) 
M6-40 


•lUI 


5S99  95 
6W9  95 

?34  95 
•C*IL 
•CALL 
•C41L 

•CALt 
■CALL 
•CALL 
■CALL 
■CALL 

5!4  95 


6O0IL 

I  800« 

izooiri 

I  KOOXL 
I  M50ILD 

ItKt 
'  He  Single  OD 

iibDusDD 

III 

LISA 
I  UACINTOSK 

coieco 

I   A  QAM 

COLUMIIA 

leooiv  ;?i9  95 

IHXJ  iV  3399  95 

1600VP  ZU9  95 

anNosaitE 

I  viC  ?o  ?5  15 

C-M  175.95 

I  E«C  61  679  95 

comrw 

I  COMPAQ  +  "CALL 
CIKIIIEIICII 

FULL  LINE  'CALL 
EACLE 

SWBir  7  !299  95 

SPIRIT  XL  3299  95 

IIE-I  1435  95 

IIE-J  1799  95 


im 

PC  -CALL 

PC  I'  'CALL 


PC 

PCJB 
PC  XT 


•CAtL 
■CALL 
•CALL 


tnnm 

11  'CALL 
IV  'CALL 
10  'CALL 

NEC 

PCSZOIA  539  95 

HOI  1S69  95 

H02  ?m  95 

H03  ?S54  95 

HO*  J37a  95 

OLIVETO 

M16DI7  •CALL 

MISPT  -CALL 

MDtO  SHACK 

100  664  95 

4  a?9  95 

4P  1499  95 

12  ?3;4  95 
16B  32W  95 
?0«  !299  95 


(  M£.3 
i  IIE-4 
PC-l 
PC2 
I  PC. XL 
1670 
1630 
164(1 


2199  95 
3275.95 
201995 
2349  95 
3059  95 
3039  95 
4349  95 
5S99  95 


EPSOM 

2X10  -CALL 

FMHKUK 

ACE  1 000  'CALL 

ACEPAM  PACK  'CALL 

ACE  PRO  +  "CALL 

ACE  1200  OMS  "CALL 

HEWltTTPACIUID 

<tC  129  95 

41CV  189  95 

41CX  225  95 

71 B  369  95 

75C  639  95 

IM  2899  95 


■CALL 
■CALL 
1199  95 
U79  95 
1749  95 
1399  95 
1819  95 
1539  95 
13(995 


iim 

1150 
1150 
1200 
1250 
4000 
4050 

SHAKP 
PC  1250  75  95 

PC1500  135  95 

PC  5000  'CALL 

TELEVKEO 

TEIEPORI POBT  'CALL 

BOOA  999  95 

802  2449  95 

803  1799  95 
B02H  4299  9S 
806/20  4749  95 
816/4D  8799  95 

1602  'CALL 

1603  "CALL 

TEIAS  mSTKUUENTS 
PflO  1669  95 

riMEX-SIHCLAII) 
1000  21  95 

2068  -CALL 


mac  minis 

IMDEK 

iv."  199  95 

•Ttm 

1040  279  95 

COMHOMffi 

154  179  95 

COKtEX 

10  Ma  'CALl 

coiivus 

SMB  1559  95 

11MB  2125  95 

20  MB  2799  95 

OAVOHG 

10  MB  1499  95 

15MB  1929  95 

21MB  2199  95 

turn 

320  »B  Ilopny  349  95 

10  MB  1749  95 

32MB  2799  95 

fKAHKUK 

ACE  2  "CALL 

WCBD-SCI 

H-2  169  95 

XL  139  95 

A-B2  359  95 

rcBASus 

lows  1D69  95 

23  MB  1599  95 

pehcom 

AT  88-Sl  279  95 

A7BBS1P0  365  95 

AT  88  AT  219  95 

RFO  40-51  345  95 

BF0  40S!  5B9  95 

«fD40.A1  219.95 

RFO  44  SI  399  95 

RF0  44.S2  S79  95 

5  MB  1299  95 

10MB  1499  95 

15MB  169995 

20  MB  2229  95 

mikOHAM 
OOADISX-ENTIBE  LINE  ■CALL 

lUM 

1000  259  95 

ELITE  I  239  95 

ELITE  II  389  95 

f  LITE  III  499  95 

FOfI  I  B  U  239  95 

SANYO 

320O  •CALL 

640O  'CALL 

EOOIEFD  ■CALL 

TALLMUS 

12  ■CALL 

20  -CALL 


CALL 


WE  DO  NOT  ONLY  MEET  PRICES... 

WE  BEAT 

EVERY  LEGITIMATE  PRICE 

8003465001 
2124384111 


nCMAII 

10  MB  1995  95 

15H9  2299  95 

33  MB  3099  95 

(EltOX 

5'/VDUAL  569  95 

a 'DUAL  1049  95 

NODnS 

ANCHOa 

SIGNALMAN  59  95 

MARK  I  59  95 

MARK  II  59  95 

MARK  111  79  95 

MABK  V  79  95 

MAHKVI  159  35 

MABK  VII  t9  95 

MABKXII  239  95 


CHARACTER 
GENERATOR 

iltenlion  3ll  VIC  ?0 
owners,  now  you  yes  you 
cm  pui  any  and  all  inies 
you  want  in  any  place  m 
any  color  on  your  video 
lape  lor  only 


$79.95 


HAVES 

CHRaNOSRAPM  169  95 

5MARTC0M  I  59  95 

SMARTCQM  II  74  95 

MICROMOOEMII  209  95 

M/MII+  225  95 

M/MIIE  209  95 

H/MlOO  259  95 

S/M300  199  95 

S/U1200  449  95 

5/M1200B  399  95 
•ovtnoii 

CAT  11995 

JCAT  85  95 

SMABTCATIOS  145  95 

SMART  CAT  103/212  345  95 

212  AUTO  CAT  509  95 

APPLE-CAT  II  229  95 

212  APPLE  CAT  519  95 
212AmECATgPa«DE  2^95 

ACCESS  1  ■2-3-  3B9  95 

DCAT  129  95 

EXEC  INFONE  699  95 

MAXIINFONE  849  95 

TMMSENO 

TRANSPAK I  265  95 

TRANSPAK II  299  95 

TRANSPAK  III  369  95 

PC  MODEM  235  95 

PCTRAItSPAK  324  95 

U.S.  aouncs 

PASSWORO  299  95 

AUTO  OIAI  399  95 


WMTimS 

AMDEK 

12--(;R  109  95 

I2-'AMB  119  95 

T3'  COL  219  95 

13- cot  RGB  369  95 

■  DC 

12"  GR  69.95 

12-AMB  72  95 

13"C0L|9I9II  199  95 

COMMODORE 

170  189  95 

HITACHI 

CM14BI  ■CALL 

EABLC 

12'GR  22995 

14-COl  RGB  479  95 

GORILLA 

12-CB  59  95 

12    AMB  79  95 

NEC 

9'  GH  119  95 

12    OR  B9  95 

12- AMB  135  95 

12    COL  249  95 

I?    COL  RGB  399  95 

fANAMmC 

12  GR 

12  GR  19  95 

12    AMB  135  95 

IJ'COL  249  95 

12'   COL   ROB  389  95 

PANASONIC 

12'GR  129  95 

12-AU9  139  95 

lO'"  COL  219  95 

13'  COL  RGB  309  95 

miHcnoN  GRtnvcs 

12' COL  RGB  469  95 

SUUTA 

12- GR  -CALL 

13'  COL  'CALL 


459  95 
1T9  95 


QUAOCHROME 
DDADCOLDR I 


SANYO 

ENTIRE  llXt  'CALL 

Tuum 

12'Ga  99  95 

12"  AMB  109  95 

12-COL  239  95 

IJ-COL  RGB  «9  95 

US( 

FULL  LINE  'CALL 

ZENITH 

FULL  LINE  'CALL 

PIDTTERS 

AKDEK 

DXVIOO  519  95 

AHPLOr  II  -CALL 

ENTM 

SWEET. P  419  95 
SWtET.p  GRAPH  PKC6S9  95 

SWEET. PPfllME  619  95 

HEWiEn-noUN) 

7470  A  769  95 

7475  1389  95 


■ANNEtlUMTULI 

PIXV.3  ■CALL 

PWAWNIC 
VPeaOlA  1179  95 

me 

X  y  749  95 

PRMTeOS 

ATARI 

1020  ia9  95 

1025  269  95 

1027  246  95 

ATARI 

1020  18995 

1025  269  95 

1027  246  95 

MIOII 

ENTIRE  LINE  'CALL 

■MTNER 

HR15  389  95 

HR25  5<9  95 

WC 

BX  BO  199  95 

Pfl  401  569  95 

BX180  249  95 

C.  ITOH 

PROWRITER  299  95 

STARWRITER  849  95 
PRINTMASTER            1139  95 

CENtMMICS 

ENTIRE  LINE  ■CALL 

CtHNOSORE 

1526  225  95 

MPS'tOl  179  95 

ANAHX 

ENTIRE  LINE  'CALL 

CWIIEI 

ENTIRE  LINE  'CALL 

DMSVWHTEIl 

150O  739  95 

2000  879  95 

DATA  nOIKICTS/IDS 

PRISM  30  899  95 
BEST  Of  LINE 
ANO  CONFIGURATIONS  'CALL 

DMLt 

620  B19  95 

630  1559  95 

EBO« 

ENTIRE  LINE  'CALL 

eoniui 

BANANA  1 29  95 

JUKI 

6100  389  95 

NEC 

3550  1529  95 

REMAINING  LINE  'CALL 
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ping handlingand  insurance  charges.  Credit  cards  lor  phone  orders  only.  M  items  subject  to  availaWHty  and  price  change  MO  T« 
lor  orders  shipped  out  ol  state  ALL  KERCHANDISE  SHIPPED  tOAND  HEW,  FACTOIIY  FMSH  AND  100%  GUAMNTED.  For  j 
customer  service  please  dial  212-4M-411t.  Brt,  ilT. 
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Save  VS  40%  on  COMPUTE! 

Every  issue  of  COMPUTE!  contains  up  to  30  new  programs 
and  games.  And  a  year's  subscription  brings  them  to  you 
for  less  than  1 5  cents  each!  Plus  you'll  enjoy  the  most  useful 
home  computer  advice,  ideas  and  information  an>-where! 
Subscribe  now  at  up  to  40%  off  the  newsstand  price.  At  less 
than  1 5  cents  per  program,  this  COMPUTE!  offer  is  too  good 
to  pass  up! 

n  1  year  $24— Save  32% !    D  2 years  $45— Save  36% ! 
D  3  years  $65— Save  40% ! 
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Address . 


City. 


.State- 


.  Zip_ 


D  Payment  enclosed  D  Bill  me 

Charge  my      DVisa   D  MasterCard  D  American  Express 


Account  No.  Exp.  date 

COMPUTE!  brings  you  programs  and  games  for  the  following 
machines:  Alan,  PET/CBM.  VIC.20,TI  99/4A,  .\pp!e.  Commo- 
dore 64,  Radio  Shack  Color  Computer,  IBM  PC  and  IBM  PCjr. 
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The  Editor's  Feedback: 

Computer:  D  PET  n  Apple  U  Atari  □  VIC-20  u  Commodore  64 
D  TI-99/4A  □  Timex/Sinciair  C  Radio  Shack  Color  Computer 
□  Ottier [  !  Don't  yet  have  one  ..- 
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COMPUTEI's 

FREE  Reader  Information  Service 

Use  these  cards  to  request  FREE  information 
about  the  products  advertised  in  this  issue, 
Clearly  print  or  type  your  full  name  and  ad- 
dress. Only  one  card  should  be  used  per 
person.  Circle  the  numbers  that  correspond  to 
the  key  number  appearing  in  the  advertisers 
index. 

Send  in  the  cord  and  the  advertisers  will  receive 
your  inquiry.  Although  every  eftort  is  mode  to 
insure  that  only  advertisers  wishing  to  provide 
product  information  have  reader  service  num- 
bers, COMPUTE!  cannot  be  responsible  if  ad- 
vertisers do  not  provide  literature  to  readers. 

Please  use  these  cards  only  for  subscribing  or 
for  requesting  product  information.  Editorial 
and  customer  service  inquiries  should  be  ad- 
dressed to:  COMPUTE!,  P.O.  Box  5406, 
Greensboro,  NC  27403.  Check  the  expiration 
dote  on  the  card  to  insure  proper  handling. 

Use  these  cards  and  this  address  only  for 
coMPUTEi's  Reader  Information  Service.  Do 
not  send  with  payment  in  any  form. 
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Circle  101  for  a  one  year  new  U.S.  subscription  to 
COMPUTE!:  you  Will  be  billed  for  $24. 

Please  print  or  type  your  full  name  and  address. 
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'The  Complete  CARDCO  Une" 

...  and  sHIl  growing! 
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CARDCO  provides  "Commodore-read/' 
computer  accessories  that  will  entiance  your 
util izati on  of  Commodore-64  and  VIC-20  Computers, 
Increase  their  capability,  and  add  to  your  enjoyment 
and  skill.  AND,  ttie/re  available  tor  use  with  other 
personal  computers,  too. 

Designed  with  the  user  in  mind,  CARDCO  offers  fine 
accessories  including  Printer  Interfaces  writh  and 
without  graphics,  Expansion  Interfaces,  Memory 
Expansions,  Cassette  Interfaces,  Numeric  Keypads 
PLUS  "NOW"  Software  foryour  VIC-20  and  C-64. 
These  programs  include  the  "V/RHE  NOW"  Word 
Processor,  "MAIL  NOW"  Mailing  Ust,  PRIfsJTER  UHLITY 
PROGRAMS  on  Tape  and  on  Disk.  "SPELL  NOW"  Spell , 
Checker,  "GRAPH  NOW  including  "PAINT  NOW", 
and  "FILE  NOW.  ^ 

CARDCO  has  three  new  Letter  Quglj 
PRINTERS  with  your  choicie  of  dru 
design  (8 1/2" carriage), Daisy 
Design  (13  inch  carriage)  arwj ' 


Wheel  Design  (11  inch  cariage) .  "Commodore- 
ready"  . . .  plus;  with  compatible  input  for  PC,  PC  jr.. 
TRS-80  and  many  more  personal  computers. 
CARDCOs  NEW  "DATA  CASSETTE  RECORDER/PLAYER" 
Is  also  "Commodore-ready"  and  ready  for  instant 
shipment  at  prices  that  wi  II  amaze  you. 

CARDCO  will  constantty  increase  its  line  with 

unique  and  new  products  to  enhance  the  enjoyment 
of  computer  owners. 


Write  for  illustrated  literature  and  prices  or  see 
CARDCO  Computer  Accessories  and  Software 
wherever  Computers  are  sold. 
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cardco,  inc. 


300S.Topeka    Wichita,  Kansas  67202     (316)267-6525 
"The  worid's  largest  manufacfurer  of  Commodore  accessories." 

Commodore'"  is  a  registef  e<5  tracJemart:  o(  Commodore  Business  Systems.  Inc. 
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